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e saviez-vous? La pré¬ 
sence dans nos listings 
de numéros entre cro¬ 
chets, assure la détec¬ 
tion d'éventuelles erreurs 
lorsdelasaisied'un program¬ 
me Basic, 

Tapez minutieusement et sau¬ 


vegardez le listing vérificateur 
relatif à votre machine (464, 
664 ou 6128), conservez-le 
précieusement et lancez-le 
avant toute frappe ou vérifi¬ 
cation de listing ; les indica- 
tions nécessaires sont inclu¬ 
ses. Chaque somme affichée 


devra rigoureusement corres¬ 
pondre à celle figurant dans 
nos colonnes. 

Nota : les deux traits verti¬ 
caux présents en lignes 80 et 
90, correspondent à une barre 
verticale sur un clavier Qwer- 
ty, ou à un «ù» sur clavier 


Azerty. Ces caractères —CHRS 
(124) — s'obtiennent par 
l'appui simultané sur SHIFT/ 
traits verticaux. 

Avec l'aimable autorisation 
de CPC 

Schneider International. 



10 REM Vérificateur 464 

20 MEMORY &A4FF 

30 FOR a7. = &A500 T0 &A607 

40 READ bytef 

50 P0KE aX, VAL < "î<"+bytef ) 

60 NEXT 

70 CLS)L0CATE 5,1 :PRINT CP(Rf<24) 
" Vérificateur V.2 464 installe 
”CHRf(24):PRINT:PRINT“Chaque val 
idation affiche désormais une so 
mme de controle."!PRINT 
80 PRINT"!CHECK,2 ! liste le pro 
gramme avec les somm 

es de contrôle."iPRINT!PRINT"ICH 
ECK,8 i imprime le programme ave 
c les sommes de contro 

le.":PRINT:PRINT" "CHRt<24) " 
Taper ou charger un programme. 11 


CHRÎ (24) 

90 CALL 8iA5001 ION 
100 NEW 

110 DATA 21,09,a5,01,0d,a5,c3,dl 
120 DATA bc,00,00,00,00,18,a5,c3 
130 DATA 2a,a5,c3,2f,a5,c3,43,a5 
140 DATA 4f,ce,4f,46,c6,43,48,45 
150 DATA 43,cb ,00,00,cf,98,aa ,c3 
160 DATA a8,a5,21,27,a5,18,03,21 
170 DATA 24,a5,28,06,cd,00 , b9 , c3 
180 DATA 06,dd,11,3a,bd,01,03,00 
190 DATA ed,b0,c9,4f,cd,00,b9,0d 
200 DATA 28,08,0d,20,ea,dd,7e,02 
210 DATA 18,04,7b,11 ,01,00,cd,a2 
220 DATA c1,cd,a3,e7,e5,4e,23,46 
230 DATA 23,5e,23,56,el,7S,b 1 ,c8 
240 DATA cd,3c,c4,e5,09,e3,cd,63 
250 DATA el,21,a4,ac,cd,7a,a5,el 


260 DATA 18,e2,e5,cd,ba,a5,e3,cd 
270 DATA 98,a5,cd,96,f2,e3,cd,f6 
280 DATA a5,cd ,4e,c3,el,7e,a7,c8 
290 DATA cd,98,a5,cd,4e,c3,18,f5 
300 DATA 3a,24,ac,d6,08,47,7e,a7 
310 DATA c9,cd,45,el ,23,10,f7,c9 
320 DATA cd,24,a5,f5,c5,d5,e5,cd 
330 DATA ba,a5,cd,f6,a5,e1,d1,c1 
340 DATA fl,c9,eb,lb,af,47,67,6f 
350 DATA 2f,32,23,a5,13,1a,d6,30 
360 DATA 38,04,fe,0a,38,f6,la,13 
370 DATA a7,c8,4f,3a,23 , a5, al, fe 
380 DATA 20,28,f3,79,fe,22,20,07 
390 DATA 3a,23,a5,2f,32,23,a5,3a 
400 DATA 23,a5,a7,79,c4,8a,ff , 4 f 
410 DATA ad,07,6f,09,18,d8,3e,20 
420 DATA cd,5c,c3,3e,5b,cd,5c,c3 
430 DATA cd,79,ee,3e,5d,c3,5c,c3 


10 REM Vérificateur 664 
20 MEMORY 5.A4FF 

30 FOR a7. = !<A500 T0 &A607 

40 READ bytef 

50 P0KE a7., VAL ( "!t“ +byt ef ) 

60 NEXT 

70 CLSiL0CATE 5,1 s PRINT CHR* <24} 

11 Vérificateur V.2 664 installe 
"CHR* <24)iPR INTiPRINT"Ch a que val 
idation affiche désormais une so 
mme de controle,"sPRINT 

80 PRINT"!CHECK,2 ! liste le pro 
gramme avec les somm 

es de contrôle.": PRINTiPRINT ”ICH 
ECK,8 i imprime le programme ave 
c les sommes de contro 

le."s PRINTs PRINT" "CHRf(24) ” 
Taper ou charger un programme. " 


CHR*(24) 

90 CALL !cA5001 ! ON 
100 NEW 

110 DATA 21,09,a5,01,0d,a5,c3,dl 
120 DATA bc,00,00,00,00,18,a5,c3 
130 DATA 2a,a5,c3,2f,a5,c3,43,a5 
140 DATA 4f,ce,4f,46,c6,43,48,45 
150 DATA 43,cb,00,00,cf,02,ac,c3 
160 DATA a8,a5,21,27,a5,18,03,21 
170 DATA 24,a5,28,06,cd,00,b9,c3 
180 DATA 4c,cb,11,5b,bd,01,03,00 
190 DATA ed,b0,c9,4f,cd,00,b9,0d 
200 DATA 28,08,0d,20,ea,dd,7e,02 
210 DATA 18,04,7b, 11,01,00 , cd , a9 
220 DATA cl,cd , 69,e8,e5,4e,23,46 
230 DATA 23,5e,23,56,el ,73,bl ,c8 
240 DATA cd,75,c4,e5,09,e3,cd,59 
250 DATA e2,21 ,8a,ac,cd,7a,a5,el 


260 DATA 18,e2,e5,cd,b a,a5,e3,cd 
270 DATA 98,a5,cd,5S,f3,e3,cd,f6 
280 DATA a5,cd,9b,c3,e1,7e,a7,c8 
290 DATA cd,98,a5,cd,9b,c3,18,f5 
300 DATA 3a,09,ac,d6,08,47,7e,a7 
310 DATA c8,cd,22,e2,23,10,f7,c9 
320 DATA cd,24,a5,f5,c5,d5,e5,cd 
330 DATA ba,a5,cd,f6,a5,e1,d1,c1 
340 DATA f1,c9,eb,lb,af,47,67,6f 
350 DATA 2f,32,23,a5,13,1a,d6,30 
360 DATA 38,04,fe,0a,38,f6, la, 13 
370 DATA a7,c8,4f,3a,?3,a5,al,fe 
380 DATA 20,28,f3,79,fe,22,20,07 
390 DATA 3a,23,a5,2f,32,23,a5,3a 
400 DATA 23,a5,a7,79,c4,ab,ff,4f 
410 DATA ad,07,6f,09,18,dB,3e,20 
420 DATA cd,a3,c3,3e,5b,cd,a3,c3 
430 DATA cd,49,ef,3e,5d,c3,a3,c3 


10 REM Vérificateur 6128 
20 MEMORY !<A4FF 

30 FOR a7. = !<A500 TO S.A607 

40 READ bytef 

50 POKE a7., VAL ( 11 8t" + byt ef) 

60 NEXT 

70 CLS:LOCATE 4,1* PRINT CHR*(24) 

11 Vérificateur V.2 6128 installe 
"CHRf(24): PRINT:PRINT"Chaque va 

lidation affiche désormais une s 
omme de controle.": PRINT 
80 PRINT"ICHECK.2 : liste le pro 
gramme avec les somm 

es de contrôle.PRINT:PRINT”ICH 
ECK,8 : imprime le programme ave 
c les sommes de contro 

le. " : PRINT: PRINT" "CHR* < 24 ) *’ T 
aper ou charger un programme. “C 


HR*(24) 

90 CALL ï<A500: ION 
100 NEW 

110 DATA 21,09,a5,01,0d,a5,c3,d1 
120 DATA bc,00,00,00,00,18,a5,c3 
130 DATA 2a,a5,c3,2f,a5,c3,43,a5 
140 DATA 4f,ce,4f,46,c6,43,48,45 
150 DATA 43,cb,00,00,cf,02,ac,c3 
160 DATA a8,a5,21,27,a5,18,03,21 
170 DATA 24,a5,28,06,cd,00,b9,c3 
180 DATA 49,cb,11,5e,bd,01,03,00 
190 DATA ed,b0,c9,4f,cd,00,b9,0d 
200 DATA 28,08,0d,20,ea,dd,7e,02 
210 DATA 18,04,7b,11,01,00,cd,a6 
220 DATA cl,cd,64,e8,e5,4e,23,46 
230 DATA 23,5e,23,56,el , 78,b 1 ,c8 
240 DATA cd,72,c4,e5,09,e3,cd,54 
250 DATA e2,21,8a,ac,cd,7a,a5 , el 


260 DATA 18,e2,e5,cd,ba,a5,e3,cd 
270 DATA 98,a5,c d,53,f 3,e3, cd , f 6 
280 DATA a5,cd,98,c3,el, 7e, a7 ,c8 
290 DATA cd,98,a5,cd,98,c3,18,f5 
300 DATA 3a,09,ac,d6,08,47,7e,a7 
310 DATA c8,cd,ld,e2,23,10,f7,c9 
320 DATA cd,24,a5,f5,c5,d5,e5,cd 
330 DATA ba,a5,cd,f6,a5,el,dl,cl 
340 DATA fl,c9,eb,lb,af,47,67,6f 
350 DATA 2f,32,23,a5,13,la,d6,30 
360 DATA 38,04,f e,Oa , 38 , f 6,1 a , 13 
370 DATA a7,c8,4f,3a,23,a5,al ,fe 
380 DATA 20,28,fS,79,fe,22,20,07 
390 DATA 3a,23,a5,2f,32,23,a5,3a 
400 DATA 23,a5,a7,79,c4,ab,ff,4f 
410 DATA ?d,07,6f,09,18,d8,3e,20 
420 DATA cd,aO,c3,3e,5b,cd,aO,c3 
430 DATA cd,44,ef,3e,5d,c3,aO,c3 





AMSAISIE 


ous vous félicitons 
d'être de plus en plus 
nombreuxà nouscom- 
mumquerdes program¬ 
mes réalisés partielle¬ 
ment ou totalement en langa¬ 
ge machine. Les avantages 
de ce type de programmation 
ne sont plus à démontrer, 
ainsi que l'exceptionnelle 
qualité de la plupart des créa¬ 
tions. 

Malheureusement, la saisie 
par le lecteur d'une pléthore 
de codes machine n'est pas 
une sinécure. Amsaisie a donc 
été créé dans le but louable 
de vous faire profiter de quel¬ 
ques petites merveilles, en 
vous évitant un maximun de 
contraintes. 

Il doit être conservé précieu¬ 
sement et utilisé chaque fois 
que vous découvrirez dnas 
nos colonnes, un listing au 
format approprié. 

Exemple : 


Mode d'emploi 

Après lancement, spécifiez en 
hexadécimal (sans le préfixe 
« & ») l'adresse de début d'im¬ 
plantation du langage machi¬ 
ne. Celle-ci s'affiche, suivie 
de « : » et d'un curseur cligno¬ 
tant. Entrez la série de huit 
codes sans vous préoccuper 
des espaces et sans valider 
par RETURN (cela est réalisé 
automatiquement). 

En fin de ligne et à l'affichage 
de « : », entrez la somme de 
contrôle correspondant à la 
lignesaisie. En l’absence d'er¬ 
reur, l'adresse suivante s'af¬ 
fiche, etc. Dans le cas contrai¬ 
re, un signal sonore et le 
message «ERREUR!» vous 
signalent une bévue. Pas de 
panique, puisque l'adresse de 
la ligne litigieuse (qu'il suffira 
de retaper) se réaffiche. De 
plus, sachez qu'en cours de 
saisie, la touche DE Lest opé¬ 
rationnelle. 


Maintenant, comment sauve¬ 
garder sur disquette (ou cas¬ 
sette) le langage machine 
aussi facilement entré en 
mémoire? Tout simplement 
par la commande «S» qui 
vous réclamera préalablement 
le nom du programme à sau¬ 
ver. Toutefois, deux solutions 
s'offrent à vous. 

— Vous êtes fou et venez de 
saisir en une seule fois, la 
« totalité » des codes hexadé¬ 
cimaux (très nombreux dans 
la plupart des cas). Pas de 
problème, après l'entrée de la 
dernière somme de contrôle 
et l'affichage de l'adresse 
suivante, appuyez sur «S», 
précisez le nom du fichier et 
validez par RETURN (ou EN¬ 
TER). 

— Vous êtes raisonnable et 
désirez morceler votre saisie. 
Au moment de stopper mo¬ 
mentanément votre ouvrage 
pour le poursuivre ultérieu¬ 
rement, appuyez sur «S» 
après l'affichage de l'adresse 
suivante et attribuez un nu¬ 
méro d'ordre à votre nom de 
fichier (exemple: PENDU1). 
À la fin de la sauvegarde, l'a¬ 
dresse suivante déjà citée se 
réaffiche; notez-la. Elle sera 
«l'adresse de début» qu'il 


conviendra de spécifier lors 
de la reprise de votre travail 
(PENDU2). 

Créez de la sorte, une suite de 
fichiers binaires (PENDU1, 
PENDU2, PENDU3. etc.). Fi¬ 
nalement, chargez à la suite 
tous ces fichiers après un 
MEMORY adéquat (inférieur 
d'une unité à l’adresse d'im¬ 
plantation) et effectuez une 
sauvegarde totale et défini¬ 
tive parlacommandedetype : 
SAVE "nom de fichier", b, 
Adresse de début, longueur 
Le nom du fichier et la valeur 
des paramètres sonttoujours 
précisés dans le mode d'em¬ 
ploi des programmes publiés. 
Prenons l'exemple d'un pro¬ 
gramme binaire appelé PEN¬ 
DU, d'adresse de début &A000 
et morcelé en trois fichiers. 
Pour les réunir en un seul 
d'après la longueur totale 
&BFF indiquée dans le mode 
d'emploi, il faudra lancer le 
programme suivant (ou ren¬ 
trer les commandes en direct) : 
10 MEMORY &A000-1 
20 LOAD"PENDU1 ,bin" : 
LOAD”PENDU2.bin" : LOAD' 
"PENDU3.bin” 

30 SAVE"PENDU”,b,&A000, 
&BFF 

Enfantin ! 


Adresse 

Codes 

Somme 
de contrôle 

8CF0 

E5 DD El 3AF6 2F 3C 11 

CB 



10 ' * AMSAISIE par Denis JARRIL * [16603 

20 MEMORY $<2000: DIM 01(18)! MODE 1 : B C176713 
0RDER 0! INK 0,0:INK 1,13:CLSiPRINTî 
F'RINT" I pour changer l'adresse cou 
rante":PRINT" S pour sauver les don 
nees":PRINT” Tapez les caractères s 
ans espace ni return (tout se f 

ait automatiquementPRINT 
30 PRINT:IMPOT” ADRESSE DE DEPART : C41103 
”, A*:D*=Af: IF A*="" THEN 30 
40 A = VAL ( "ît"+A$) [ 12733 

50 I =0i Af=HEXt(A,4) s PRINTî PRINT A*; [32001 
" s " ; : C=VAL ( "Î("+LEFT$ (Ai , 2) ) +VAL ( "î<" 

+RIGH T* < A*,2) ) 

60 T WH ILE T*= ” " : CALL Ï<BB8A:T* = [3454 3 
INKEY'Ti CALL &BB3D: WEND: T* = UF'PER* (TT 
> 

70 IF Tf="I" THEN CLSïRUN [11323 

80 IF T*<)"5" THEN 110 ELSE D=VAL(” C331S3 
!< " + DI ) : IF D>0 AND A<0 THEN A=A+6553 
6 

90 PRINT:PRINT:INPUT" NOM : " ,N*:I [33943 
F N*<>" " THEN SAVE NT, B, D , A-D+1 


100 GOTO 50 [3843 

110 IF T*<)CHR*(127) THEN 130 ELSE [74053 
IF 1=0 THEN 60 ELSE 1 = 1-1 :PRINT CHR 
T( 8 ) 5 " "j CHR*( 8 ); s IF I/2< >R0UND <1/2 
) THEN PRINT CHR*( 8 )$” ”:CHR*<3); 

120 GOTO 60 C3903 

130 IF T * <"0 " OR T*>"F" THEN SOUND [26933 

7,150,20:GOTO 60 

140 IF Tf < " A" AND T*>"9" THEN SOUND [26323 
7,150,20:GOTO 60 

150 PRINT T*;:IF 1 = 15 THEN PRINT”: ” [32783 
; ELSE IF I/2<3R0UND(172> THEN PRIN 

JM H , 

160 0*(I)= T* [5923 

170 1 = 1 + 1 : IF I<18 THEN 60 [ 13243 

180 FOR 1 = 0 T0 15 STEP 2: X = VAL < ”” + [44503 

0*<I)+0*(1+1>):P0KE A,X : A=A +1 :C=C + X 
: NE X T : C=C AND ?<FF 

190 IF C=VAL ( "î<" + 0* ( I ) +0* ( I +1 ) ) THE [24263 
N 50 

200 SOUND 7,50,10:SOUND 7,500,10:PR [34933 
INT"ERREUR!: GOTO 40 


4 











JEASON 



C omment détruire à 
l'aide de briques de 
feu, des boules sa¬ 
crées réparties dans 
les vingt-cinq salles 
d'un temple gigantesque par¬ 
ticulièrement mal fréquenté ? 
Par la malice et la perspicaci¬ 
té qui caractérisent notre ami 
Jeason... 

Sauvegarde 

Sauvez tout d'abord sous un 
nom de votre choix (JEASON) 
le premier listing Basic. En¬ 
trez ensuite par Amsaisie (re¬ 
portez-vous à son mode d'em¬ 


ploi) le court listing de codes 
hexadécimaux. Spécifiez 
7000 comme adresse de dé¬ 
but et sauvegardez le langage 
machine par l'opti.on » S -sous 
le nom « JEASON 1 ». Sauve¬ 
gardez ensuite le troisième 
listing Basic (programme prin¬ 
cipal) sous le* nom 
« JEASON2 *. Les règles sont 
incluses. 

Nota : le caractère de contrôle 
présent dans les lignes 2480, 
2500 et 2520, s'obtient par 
appui simultané sur CTRL/O. 

Sébastien Royer 





mm 


10 '*****##*####*#** [5283 

20 '**■** **** [2783 

30 '**** JEASON **** [6843 

40 '**** **** [2783 

50 '###*#******##### [5283 

60 '*** S. R0YÊR *** [8833 

70 '##**##****###*** [5283 

80 BORDER 0 3 DIM C(15):MDDE 0 : FOR 1= C37473 
0 TO 15:READ A : INK I,0:C(I)=A:NEXT 
90 DATA 0,1,2,14,20,19,18,9,3,6,15, [17123 
24,25,26,8,7 

100 PRINT CHR$(23);CHRI(3) [19903 

110 L0CATE 7,3:PEN 14: PRINT"JEASON" [23943 
120 L0CATE 9,6s PEN 15:PRINT"(C)" [ 14593 

130 L0CATE 5,9:PEN 14sPRINT"R.0.S S C28013 
OFT" 

140 L0CATE 9,12s PEN 15sPRINT"BY" [ 13663 

150 L0CATE 3,15: PEN 14 : PRINT 11 SEBAST [3561 3 
IEN ROYER" 

160 C=1 [3513 

170 FOR 1=0 TO 400 STEP 4 115133 

180 PLOT 0,1,C MOD 13+1 L'4443 

190 DRAWR 576,0 [7443 

200 PLOT 0,I+2,C MOD 13+1 [6163 

210 DRAWR 576,0 [7443 

220 C=C+i [7013 

230 NEXT [3503 

240 INK 14,0(14):INK 15,0(15) [19393 

250 FOR 0=1 TO 80 [9413 

260 A=C(1) [8063 

270 FOR 1=1 TO 12 [3213 

280 C(I)=0(I +1 ) [389 3 

290 INK I,C(I> [6703 

300 NEXT [3503 

310 CALL $<BD 19 [352 3 

320 INK 13,A [2863 

330 C < 13)=A [4623 

340 NEXT [3503 

350 MEMORY S<7000-1 [4833 

360 LOAD"!JEAS0N1" [15723 

370 RUN"!JEAS0N2” [5193 


7000:00 

04 

08 

00 

00 

OC 

OC 

00:94 

7008 

04 

5C 

AC 

08 

04 

FC 

OC 

08: AO 

7010 

OC 

AC 

OC 

OC 

5C 

AC 

OC 

OC: 70 

7018 

5C 

OC 

OC 

4C 

OC 

OC 

OC 

9C : 08 

7020 

OC 

OC 

OC 

3C 

OC 

OC 

4C 

BE: 12 

7028 

OC 

OC 

9C 

AE 

OC 

4C 

7D 

2C : FB 

7030 

04 

7D 

BE 

08 

04 

9C 

6C 

08: FB 

7038 

00 

4C 

8C 

00 

00 

04 

08 

00: 8C 

7040 

FC 

FC 

FC 

FC 

FC 

FC 

FC 

AC : 40 

7048 

88 

30 

30 

24 

88 

30 

30 

24:30 

7050 

88 

FC 

FC 

24 

88 

FC 

AC 

24:18 

7058 

88 

88 

24 

24 

88 

88 

24 

24:38 

7060 

88 

88 

24 

24 

88 

88 

24 

24:40 

7068 

88 

88 

24 

24 

88 

AC 

OC 

24:24 

7070 

88 

OC 

OC 

24 

88 

30 

30 

24:10 


7078:AC 

OC 

OC 

OC 

OC 

OC 

OC 

OC : E8 

7080:54 

FC 

FC 

AS 

88 

30 

B8 

74 : F8 

7088:A8 

10 

A8 

54 

A8 

10 

A8 

54:60 

7090:A8 

34 

38 

54 

A8 

3C 

3C 

•54: DC 

7098:BC 

7D 

BE 

7C 

BC 

AB 

57 

7C:B5 

70A0:BC 

AB 

57 

7C 

BC 

7D 

BE 

7C: BD 

70A8:A8 

3C 

3C 

54 

A8 

34 

38 

54 : F4 

7080:A8 

10 

A8 

54 

A8 

10 

A8 

54:88 

7088 : FC 

FC 

FC 

FC 

10 

30 

74 

AS s 74 

70C0:00 

3C 

3C 

00 

14 

3C 

FF 

28:1F 

70C8: 14 

7D 

56 

28 

3C 

AB 

FC 

BC: E6 

70D0:3C 

AB 

FC 

BC 

3C 

AB 

FC 

1C : DE 

70D8:3C 

AB 

AC 

IC 

3C 

AB 

AC 

IC: A6 

70E0:3C 

AB 

AC 

IC 

3C 

AB 

06 

16:02 

70E8:3C 

FF 

03 

BE 

3C 

7D 

FF 

3Cs 48 

70F0:3C 

3C 

3C 

94 

14 

68 

CO 

28: OC 


70F8: 14 

3C 

3C 

28 

00 

3C 

3C 

00:94 

7100:00 

3C 

3C 

00 

14 

FF 

3C 

28 

60 

7108: 14 

A9 

BE 

28 

7C 

FC 

57 

3C 

27 

7110: 7 C 

FC 

57 

3C 

2C 

FC 

57 

3C 

47 

7118:2C 

5C 

57 

3C 

2C 

5C 

57 

3C 

BF 

712 0: 2 C 

5C 

57 

3C 

29 

09 

57 

3C 

71 

7128:7D 

03 

FF 

3C 

3C 

FF 

BE 

3C 

89 

7130:68 

3C 

3C 

3C 

14 

CO 

94 

28 

4D 

7138:14 

3C 

3C 

28 

00 

3C 

3C 

00 

D5 

7140:00 

3C 

3C 

00 

54 

3C 

7D 

02 

38 

7148:54 

57 

AB 

A8 

FC 

57 

FE 

FC 

04 

7150:AC 

57 

FE 

5C 

AC 

5D 

AE 

5C 

31 

7158:AC 

5D 

AE 

5C 

06 

5D 

AE 

5C 

49 

7160:AB 

5D 

AE 

FD 

7D 

57 

FE 

BE 

14 

7168:3C 

BE 

7D 

3C 

3C 

3C 

3C 

3C 

7C 
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7170:68 3C 3C 94 14 CO CO 28:11 7188:14 3C 3C 28 00 3C 3C 00:55 7200:00 CF CF 00 45 33 33 8A:45 
7178:14 3C 3C 28 00 3C 3C 00:15 71C0:00 C3 C3 00 41 C3 C3 82:00 7208:45 67 98 8A 98 98 67 67:4F 
7180:00 3C 3C 00 14 3C 3C 28 s 1D 71C8:41 87 48 82 C3 1E 2D C3:9F 7210:98 9B 67 67 9B 98 67 67:8A 
7188:14 3C 3C 28 3C 3C 3C 3C:9D 71D0:C3 1E 2D C3 87 3C 3C 4B:5C 7218:98 98 67 67 98 98 67 67:92 
7190:3C 3C 3C 3C 3C 3C 3C 3C:E1 71D8:87 7C BC 48 87 2C IC 4B:6D 7220:98 98 67 67 9B 9B 67 67:9A 
7198:3C 3C 3C 3C 3C 3C 3C 3C:E9 71E0:87 2C IC 4B 87 2C IC 4B:85 7228:98 98 67 67 98 98 67 67:A2 
71 AO:3C 3C 3C 3C 3C 3C 3C 3C J F1 71E8:87 3C 3C 4B C3 1E 2D C3:74 7230:98 9B 67 67 45 67 98 8A:77 
71A8:3C 3C 3C 3C 3C 3C 3C 3C:F9 71F0:C3 1E 2D C3 41 87 4B 82:C7 7238:45 33 33 8A 00 CF CF 00:7D 
'7180:3C 3C 3C 3C 14 3C 3C 28:C5 71F8:41 C3 C3 82 00 C3 C3 00:38 7240:00 00 00 00 00 00 00 00:B2 


10 DETINT A-Z:ENV 1,15,1,1,15,-0.5, [36813 
3:ENT -1,3,1,1,9,-1,1:ENV 2,15,-1,1 
: FOR 1 = 0 TO 15 

20 READ A:INK I,A:NEXT C14833 

30 DATA 2,1,0,3,13,0,6,26,25,4,5,18 [1800] 
,9,0,0,15 

40 BORDER OsDIM X<17,11),SP(10) [16153 

50 DEF FNPO <X , Y) =&C0F8+ < Y-l )*160+ < X [33403 
-1)*4:DEF FNP0T<X,Y)=&C0F8+<Y-1)*80 
+(X-l)*4 

60 MODE 0:FOR 1=0 TO 9:SP<1+1)=&700 [23663 
0+1*64 :NEXT 

70 IF PEEK(«<90003=221 THEN GOTO 240 [19723 
0 


80 FOR I = *<9000 TO *<9063 [15983 

90 READ A!:POKE I, VAL ( "«<"+AI3 : NEXT [6143 
100 DATA DD,5E,00,DD,56,01,DD,6E [5863 

110 DATA 02,DD,66,03,06,05,C5,D5 [16393 

120 DATA 11,CO,70,CD,49,90,DI,23 [13423 

130 DATA 23,23,23,CD,49,90,2B,2B [11403 

140 DATA 2B,C1,C5,78,FE,01,28,07 [12303 

150 DATA 2B,CD,33,90,23,00,00,Cl [14003 

160 DATA 10,D C,C 9 [4473 

170 DATA E5,06,10,C5 [7963 

180 DATA E5,06,01,3E,00,77,23,10 [9753 

190 DATA FA,El,CD,26,BC,Cl,10,EF [15913 

200 DATA El,C9,CD,19,BD,D5,E5,06 [8253 

210 DATA 10,C5,E5,06,04,1A,77,23 [12453 

220 DATA 13,10,FA,El,CD,26,BC,Cl,10 [10893 

230 DATA EF,El,D1,C9 C1343 

240 FOR I = ?<A000 TO «<AOOF [6263 

250 READ Al : POKE I, VAL < ,, 5<” +A!) : NEXT [6143 

260 DATA DD,5E,00,DD,56,01,DD,6E [5863 

270 DATA 02,DD,66,03,CD,49,90,C9 [13243 

280 FOR I=?<9100 TO S<913A [11003 

290 READ AlîPOKE I, VAL < “*<"+AI ) : NEXT [6143 

300 DATA DD,5E,00,DD,56,01,DD,6E [5863 

310 DATA 02,DD,66,03,06,05,C5,CD [18223 

320 DATA 49,90,23,23,23,23,05,11 [15493 

330 DATA 00,71,CD,49,90,DI,Cl,C5 [15353 

340 DATA 78,FE,01,28,OD,23,23,23 [12483 

350 DATA 00,00,CD,33,90,06,03,28 [11863 

360 DATA 10,FD,06,05,2B,10,FD,C1 [11673 

370 DATA 10,D4,C9 [6423 

380 FOR I = *<9200 TO *<9269 [11633 

390 READ AliPOKE I, VAL < ,, î<" +A! ): NEXT [6143 

400 DATA DD,5E,00,DD,56,01,DD,6E [5863 

410 DATA 02,DD,66,03,06,05,C5,CD [18223 

420 DATA 49,90,06,04,CD,3C,92,D5 [12103 

430 DATA 11,80,71,CD,49,90,DI,C1 [13913 

440 DATA C5,78,FE,01,28,OD,06,03 [11843 

450 DATA CD,3C,92,CD,54,92,06,03 [11403 

460 DATA CD,48,92,06,05,CD,48,92 [8493 

470 DATA Cl,10,D3,C9 [7533 

480 DATA C5,06,04,CD,26,BC,10,FB,Cl [18083 

, 10 ,F5,C9 

490 DATA C5,06,04,CD,29,BC,10,FB,Cl [23823 
, 10, F 5, C 9 


500 DATA E5,06,04,C5 [6463 

510 DATA E5,06,04,3E,00,77,23,10 [8453 

520 DATA FA,El,CD,26,BC,Cl,10,EF [15913 

530 DATA El,C9 [4863 

540 FOR I = ?<9300 TO *<9331 [16583 

550 READ Al: POKE I, VAL < "*<"+AI3 : NEXT [6143 
560 DATA DD,5E,00,DD,56,01,DD,6E [5863 

570 DATA 02,DD,66,03,06,05,C5,CD [18223 

580 DATA 49,90,06,04,CD,48,92,05 [12723 

590 DATA 11,40,71,CD,49,90,DI,Cl C904 3 

600 DATA C5,78,FE,01,28,03,CD,54 [10553 

610 DATA 92,06,05,CD,3C,92,Cl,10 C15143 

620 DATA DD,C9 [4033 

630 FOR I =*<9400 TO *<9420 [12613 

640 READ AI : POKE I, VAL < ,, *< ,, +AI) : NEXT [6143 
650 DATA DD,5E,00,DD,56,01,DD,6E [5863 

660 DATA 02,DD,66,03,06,05,C5„,CD [18223 

670 DATA 49,90,Cl,C5,78,FE,01,28 [18283 

680 DATA 03,CD,33,90,23,Cl ,10,EE 171372] 

690 DATA C9 [2763 

700 FOR I=«<9500 TO *<9526 [11883 

710 READ Al : POKE I,VAL<"fc"+A!):NEXT [6143 
720 DATA DD,5E,00,DD,56,01,DD,6E [5863 

730 DATA 02,DD,66,03,06,05,C5,CD [18223 

740 DATA 49,90,Cl,C5,78,FE,01,28 [18283 

750 DATA 09,23,23,23,CD,33,90,2B [9563 

760 DATA 2B,2B,2B,C1,10,E8,C9 [11343 

770 FOR I=«<9600 TO *<9629 [11633 

780 READ AI: POKE I ,VAL (W'+AI) :NEXT [6143 
790 DATA DD,5E,00,DD,56,01,DD,6E [5863 

800 DATA 02,DD,66,03,06,05,C5,CD [18223 

810 DATA 49,90,06,03,CD,3C,92,Cl,C5 [17213 
,78,FE,01,28 

820 DATA 03,CD,54,92,06,04,CD,48 [16813 

830 DATA 92,Cl , 10,E5,C9 [703 

840 FOR I = *<9700 TO «<9724 [11943 

850 READ Al:POKE I,VAL< W'+AI):NEXT [6143 
860 DATA DD,5E,00,DD,56,01,DD,6E [5863 

870 DATA 02,DD,66,03,06,05,C5,CD U8223 

880 DATA 49,90,Cl,C5,78,FE,01,28 [18283 

890 DATA 03,CD,54,92,06,01 ,CD,3C [14813 

900 DATA 92,Cl, 10,EA,C9 [3313 

910 GOTO 2400 [3473 

920 ‘ ***** [1743 

930 ' *JEU* [2303 

940 ' ***** [1743 

950 MODE 0:VIE=5:SC=0: T A = 1 [19713 

960 WINDOWttl,3,18,4,23 [10523 

970 LOCATE 1,1:PEN 6: PRINT"VIE: " \ [11973 

980 PEN 9:PRINT VIE [15793 

990 LOCATE 10,1 : PEN,' 1 : PRINT"SC: “ ; [19053 

1000 GOSUB 1490 [8253 

1010 FOR 1=1 TO 18 [3393 

1020 CALL *<A000,FNPO(1,1)-164 , SP < 1 ) [18373 
1030 CALL &A000,FNPO<1,11>-4,SP<1> [14303 

1040 NEXT [3503 

1050 FOR 1=1 TO 11 [3143 

1060 CALL «<A000, FNPO < 1,1 > -4 , SP < 1 ) [13313 

.1070 CALL 4AOOO,FNPO<17,1),SP<1> [12793 
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1080 NEXT 
1090 GOTO 1770 
1100 END 

1110 ' ********************** 

1120 ' * ROUTINE PRINCIPALE * 

1130 ' ********************** 

1140 M0N=0 

1150 EVERY (25-MSTR)*500,0 GOSUB 23 
10 

1 i£o X5=X:Y5=Y 

1170 DI:IF INKEY(GA)=0 AND X>1 THEN 
IF X (X-1 , Y> = 0 THEN CALL $<9500,FNPO 
< X,Y),SP<5)s X = X-1 : GOTO 1210 ELBE IF 
X>2 THEN IF X <X-2,Y)=0 THEN X(X-2, 
Y) = X (X-l ,Y) : X < X — 1 , Y) = 0: X = X — 1 : CALL $< 
9100,FNPO(X,Y),SP(X(X-l,Y)): IF X(X- 
1,Y)=1 THEN XB=X-1: GOTO 1210 
1180 IF INKEY(DA)=0 AND X<16 THEN I 
F X < X *-1, Y > =0 THEN CALL $<9400 , FNPO < X 
,Y>,SP<4)s X = X +1ï GOTO 1210 ELSE IF X 
<15 THEN IF X < X +2,Y)=0 THEN X(X+2,Y 
) = X(X + 1 ,Y) s X <X + l, Y) =0s CALL $<9000,FN 
POIX,Y),SP(X < X+2,Y)):X=X+1: IF X < X +1 
, Y ) = 1 THEN XB=X+1: GOTO 1210 
1190 IF INKEY(HT)=0 AND YM THEN IF 
X ( X , Y-1 ) =0 THEN CALL .$«9600 , FNPO ( X , 
Y),SP(7)s Y=Y-1:GOTO 1210 ELSE IF Y> 

2 THEN IF X(X,Y—2>=0 THEN X < X,Y-2) = 
X < X , Y-l ) i X ( X , Y-l ) =0: Y=Y-1 : CALL $<920 
0,FNPO(X,Y),SP(X(X,Y-l)): IF X <X,Y-l 
)=1 THEN YB=Y~1 : GOTO 1210 

1200 IF INKEY(BA)=0 AND Y<10 THEN I 
F X < X , Y* 1 ) =0 THEN CALL $<9700 , FNPO ( X 
,Y),SP(à):Y=Y+1 ELSE IF Y<9 THEN IF 
X(X,Y+2)=0 THEN X < X , Y + 2) =X < X , YM > : 
X ( X , YM ) = 0: Y= YM : CALL $<9300, FNPO ( X , 
Y),SP(X(X,Y+1)): IF X < X,Y+1> = 1 THEN 
YB = Y +1 
1210 El 

1220 IF XOX5 OR YOY5 THEN SC=SC+5 
:GOSUB 1490 

1230 IF X = X 1 AND Y---Y1 THEN FIN= 1 
1240 IF INKEY(AB)=0 THEN FIN=1 
1250 IF X < X B — 1 , Y B)= 3 AND X(XB+1,YB) 
= 3 AND X < XB,YB-1> =3 AND X(XB,YBM) = 

3 THEN DI : TA=T AM: FOR 1 = 200 TO 0 ST 
EP -20:SOUND 1,I,4,15:NEXT:GOTO 177 
0 

1260 IF X(X1,Y1X >0 THEN DI : X1 = XPï Y 
1=YP:SC=SC+500:X(X1 ,Y1)=0:CALL $<A00 
0, FNPO < X 1, Y1 ) , SP (10): CALL $<AOOO,FNP 
0 < X1,Y1>,SP (8 >:M0N = O:GOSUB 1490:El 
1270 MON = MONM : IF MON = MSTR THEN MON 
=0:GOSUB 1300 

1280 IF FIN=1 THEN M0N=0:FIN=0:GOTO 
1410 

1290 GOTO 1160 
1300 ' *********** 

1310 ' * MONSTRE * 

1320 ' *********** 

1330 DI 

1340 IF X <X1,Y1)< 50 THEN X1 = XP: Y1 = Y 
P: SC=SC+500: X ( X 1 , Y1 ) =0 : CALL $<AOOO,F 
NPO ( X 1 , Y1 ) , SP (10): CALL $<A000 , FNPO ( X 
1,Y1),SP < 8 ):MON=MSTR:GOSUB 1490:G0T 
0 1400 

1350 IF X1< X THEN IF X < X1 +1,Y1)= 0 T 
HEN CALL &9400,FNPO < X1,Y1),SP( 8 ):X1 
= X 1M : GOTO 1400 

1360 IF X1>X THEN IF X(X1 -1,Y1)= 0 T 


C350 3 
[3613 
C1103 
[6733 
[8223 
[6733 
[4823 
[9663 

[904 3 
[122933 


[136623 


[142653 


[123613 


[863 

[23173 


[12663 

[20623 

[92623 


[67303 


[21443 

[17503 

[3073 

[3323 

[3313 

[332 3 

[843 

[82303 


[56793 


[45063 


HEN CALL $<9500,FNPO<X1,Y1),SP(8):X1 
= X1 — 1ïGOTO 1400 

1370 IF Y1<Y THEN IF X(X1,Y1+1)=0 T [33003 
HEN CALL $<9700,FNPO ( X1 , Y1 ) , SP (8) : Y1 
= Y1 +1 : GOTO 1400 

1380 IF Y1 >Y THEN IF X < X1, Y1 -1 > =0 T [36663 
HEN CALL $<9600,FNPO ( X1 , Y1 ) , SP <8) s Y1 


1390 IF X = X1 AND Y=Y1 THEN FIN=1 [12663 

1400 El :RETURN [4163 

1410'********** [3153 

1420 ' * VIE -1 + [3873 

1430 ' ********** [3153 

1440 MU=REMAIN(0) [3333 

1450 LOCATE 1,1:PEN 6 : PRINT"VIE: ” ; [11973 

1460 PEN 9: VIE = VIE-l: PRINT VIE C16663 

1470 IF VIE=0 THEN GOTO 2400 [7913 

1480 GOTO 1770 C 3613 

1490 ' ********* [4183 

1500 ' * SCORE * [833 

1510 ' ********* [4183 

1520 DI :PEN 7:L0CATE 13,1:PRINT USI [23473 

NG"######";SCi 

1530 El :REtURN [4163 

1540 ' ************************* [8943 

1550 ' * TABLEAU INTERMEDIAIRE * [19083 

1560 ' ************************* [8943 

1570 PAC=-1 [3923 

1580 CLS#1 C3733 

1590 FOR 1=1 TO 10 [3153 

1600 READ A [4283 

1610 B$=BIN$(A,16) [3143 

1620 FOR 0=1 TO 16 [9563 

1630 B1=VAL(MID*(BI,Q,1)) [9173 

1640 IF B1 = 1 THEN CALL $<A000, FNPO (0 [24603 

,I),SP(1) ELSE CALL $<A000, FNPO ( 0,1 ) 

, SP(9):PAC=PACM 

1650 IF B 1=0 THEN Bl = 2 [11393 

1660 X <0,1)=B1 [6843 

1670 NEXT:NEXT [10223 

1680 X(1,10)=0 [8993 

1690 X=1 :Y=10 [10123 

1700 CALL $cA000,FNP0<l,10) ,SP(4) [10813 


1710 IF INKEY <GA)=0 AND X>1 AND X(X [ 1 16723 
-1, Y ) < > 1 THEN CALL $<9500, FNPO < X , Y ) , 

SP(5):X = X-1: IF X (X , Y)= 2 THEN PAC = PA 
C-l: X(X,Y)=0:SC=SC+25:SOUND 1,35,15 
,15,2:GOSUB 1490:G0T0 1750 ELSE GOT 
0 1750 

1720 IF INKEY < DA)=0 AND X <16 AND X( [80263 
X + l, Y ) < >1 THEN CALL $<9400, FNPO ( X , Y ) 

,SP(4):X=XM: IF X <X , Y)=2 THEN PAC = P 
AC — 1 : X(X,Y)=0:SC=SC+25:SOUND 1,35,1 
5,15,2:GOSUB 1490:G0T0 1750 ELSE GO 
TO 1750 

1730 IF INKEY(HT)=0 AND Y>1 AND X(X [100023 
, Y -1 ) < > 1 THEN CALL $<9600, FNPO < X , Y ) , 

SP(7):Y = Y-1:1F X < X,Y)= 2 THEN PAC = PA 
C-l: X <X,Y)=0:SC=SC+25:SOUND 1,35,15 
,15,2:GOSUB 1490:G0T0 1750 ELSE GOT 
0 1750 

1740 IF INKEY(BA)=0 AND Y<10 AND X< [85103 
X , Y M ) < M THEN CALL $<9700, FNPO ( X , Y ) 

, SP( 6 ):Y = Y + 1: IF X <X , Y)=2 THEN PAC=P 
AC-lsX(X,Y)=0:SC=SC+25:S0UND 1,35,1 
5,15,2:GOSUB 1490:G0T0 1750 ELSE GO 
TO 1750 

1750 IF PAC=0 THEN TA=TAM : FOR 1 = 20 [47163 
0 TO 0 STEP -20:SOUND 1 ,1,4,15:NEXT 
: GOTO 1770 
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1780 GOTO 1710 



C 3573 

2200 

X < X , Y)=3 

[6693 

1770 ' ************** 



C 4453 

2210 

NEXT 

[3503 

1780 ’ * TABLEAU +1 * 



C4973 

2220 

READ XB,YB 

C10683 

1790 ' ************** 



C4453 

2230 

CALL &A000,FNPO(XB, YB) ,SP<1) 

X < X B, Y B)=1 

READ XI,Y1 : XP=X1 :YP=Y1 

[9753 

1800 MU=REMAIN <0) 



[3333 

2240 

[8903 

1810 IF TA = 26 THEN TA-1 



[15373 

2250 

[22053 

1820 ON TA GOTO 1830,1840,1850 

,1860 

[77653 

2260 

CALL îtAOOO, FNPO < X1, Y1 ) , SP < 8) 

[6383 

, 2030,1870,1880,1890,1900,2030 

,1910 


2270 

READ X,Y 

[4693 

,1920,1930,1940,2030,19 

50,1960 

,1970 


2280 

CALL &A000,FNPO < X,Y),SP < 4) 

[14593 

,1980,2030,1990,2000,2010,2020 

,2030 


2290 

READ MSTR 

[535 3 

1830 RESTORE 3000:GOTO 

2040 ' 

TABLE 

[20373 

2300 

RETURN 

[5553 

AU 1 




2310 

' ************************ 

[7683 

1840 RESTORE 3030:GOTO 

2040 1 

TABLE 

[18673 

2320 

' * UNE BRIQUE DISPARAIT * 

[14243 

AU 2 




2330 

‘ ************************ 

[7683 

1850 RESTORE 3080:GOTO 

2040 ' 

TABLE 

[12903 

2340 

DI 

[843 

AU 3 




2350 

X D=IN T< RMD *16)+1 

[16373 

1880 RESTORE 3090:GOTO 

2040 ' 

TABLE 

[23533 

2360 

YD=INT <RND*10)+1 

[13173 

AU 4 




2370 

IF X <XD,YD)=2 THEN CALL &A000, 

[58173 

1870 RESTORE 3120:G0T0 

2040 ' 

TABLE 

[12193 

FNPO <XD,YD>,SP(10): SOUND 1,35,45,15 


AU 8 




,1,1: 

X < XD , YD)=0 ELSE GOTO 2350 


1880 RESTORE 3150:G0T0 

2040 ' 

TABLE 

[18663 

2380 

El 

[863 

AU 7 




2390 

RETURN 

[5553 

1890 RESTORE 3180:G0T0 

2040 ' 

TABLE 

[22603 

2400 

' **************** 

[5283 

AU 8 




2410 

1 * PRESENTATION * 

[16063 

1900 RESTORE 3210:GOTO 

2040 ' 

TABLE 

[21683 

2420 

' **************** 

[5283 

AU 9 




2430 

MODE 0:PEN 7 

[11333 

1910 RESTORE 3240:G0TQ 

2040 * 

TABLE 

[15923 

2440 

PR INT" JEASON" 

[10073 

AU 11 




2450 

PEN 2 

[5483 

1920 RESTORE 3270:GOTO 

2040 ' 

TABLE 

[20383 

2460 

PR INT" -* 

[11343 

AU 12 




2470 

LOCATE 1,5 

[6233 

1930 RESTORE 3300:GOTO 

2040 ' 

TABLE 

[14413 

2480 

PR INT” 011 04-06 REGLES" 

[13893 

AU 13 




2490 

PRINT:PRINT 

[7433 

1940 RESTORE 3330:G0T0 

2040 ' 

TABLE 

[16203 

2500 

PR INT 11 012 04-06 JOYSTICK" 

[11813 

AU 14 




2510 

PRINT:PRINT 

[7433 

1950 RESTORE 3380:GOTO 

2040 ' 

TABLE 

[10833 

2520 

PRINT" 013 04-06 CLAVIER" 

[18233 

AU 18 




2530 

Fl=".JEASON 

[52033 

1980 RESTORE 3390:GOTO 

2040 ' 

TABLE 

[16443 

- <C)copyright R.O.S. by SEBASTIEN 


AU 17 




ROYER en Novembre 1988" 


1970 RESTORE 3420:GQT0 

2040 ' 

TABLE 

[21193 

2540 

L0=1 :PEN 8 

[8563 

AU 18 

1980 RESTORE 3450:GOTO 

2040 ' 

TABLE 

[16513 

2550 

• 

LOCATE 1,25: PRINT LEFTMF*,20> 

[18573 

AU 19 




2560 

FI=RIGHTMF!,LEN(FI) -1 ) +LEFTM 

[22373 

1990 RESTORE 3480:G0T0 

2040 ' 

TABLE 

[24043 

Fl, 1 ) 



AU 21 




2570 

AMINKEYI 

[2783 

2000 RESTORE 3510:G0T0 

2040 ' 

TABLE 

[13513 

2580 

IF A!= 11 1 " THEN GOTO 2630 

[13263 

AU 22 




2590 

IF Al= "2" THEN AB=18:GA=74:DA= 

[38683 

2010 RESTORE 3540:G0T0 

2040 ' 

TABLE 

[16743 

75: HT 

=72:BA=73:GOTO 920 


AU 23 




2600 

IF A*="3" THEN AB=18:GA=8:DA=1 

[31383 

2020 RESTORE 3570:GOTO 

2040 ' 

TABLE 

[16263 

:HT=0:BA=2:GOTO 920 


AU 24 




2610 

CALL &BD19 

[3523 

2030 RESTORE 3600:GOTO 

1540 ' 

TABLE 

[33803 

2620 

GOTO 2550 

[ 365J 

AUX INTERMEDIAIRES 5,10 

,15,20 

ET 25 


2630 

’ **************** 

[5283 

2040 CLS#1 :GOSUB 2050:GOTO 1110 

[18563 

2640 

' **** REGLES **** 

[3673 

2050 ' *********************** 


[5773 

2650 

' **************** 

[5283 

2060 ' * DESSIN D'UN TABLEAU * 


[7533 

2660 

MODE liINK 0,0:INK 1,2:INK 2,6 

[27593 

2070 ' *********************** 


[5773 

: INK 

3,24:BORDER 0:PEN 3 


2080 MU=REMAIN(0) 



[3333 

2670 

PRINT" REGLES" 

[12923 

2090 FOR 1=1 TO 10:READ 

A:AMI)=BIN 

[30483 

2680 

PEN 2 

[5483 

MA, 16) :NEXT 




2690 

PRINT" ======" 

[13023 

2100 FOR 1=1 TO 10 



[3153 

2700 

PEN 1 

[5493 

2110 FOR 0=1 TO 16 



C9563 

2710 

PRINT 

[3613 

2120 B1=VAL (MI DM AM I ) , 

0 ,1)) 


[7833 

2720 

PRINT” Vous etes JEASON Ile b 

[39403 

2130 X (0,1 )=0 



[7343 

onhomme rouge)" 


2140 IF B1 = 1 THEN CALL 

&A000,FNPO(0 

[12483 

2730 

PRINT"et vous devez reunir les 

[44863 

,1),SP(2) 




4 briques de" 


2150 IF Bl = l THEN X(0,1 > =2 


[9403 

2740 

PRINT"feu autour de la boule n 

[22743 

2160 NEXT:NEXT 



C10223 

oire. 

II 


2170 FOR 1=1 TO 4 



[4503 

2750 

PRINT 

[3613 

2180 READ X,Y 



[4693 

2760 

PRINT" Pour cela, vous pouvez 

[41033 

2190 CALL &A000, FNPO < X , 

Y),SP (3 

) 

[14493 

déplacer les” 
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JEASON 


2770 PRINT"briques ou la boule en 1 
es poussant” 

2780 PRINT"(une par une)." 

2790 PRINT 

2800 PRINT" Mais les choses se gat 
tent, car un" 

2810 PRINT"monstre redoutable prote 
ge les 1 i eu>:. " 

2820 PRINT"Neanmoins, rassurez-vous 
i vous pourrez" 

2830 PRINT"le tuer en l'écrasant av 
ec quelques" 

2840 PRINT"briques ou bien la boule 

II t 

2850 PRINT 

2860 PRINT" Tout les 5 tableaux (i 
1 y en a 25),“ 

2870 PRINT"vous pourrez gagner enor 
mement de" 

2880 PRINT"points en mangeant les r 
ubis qui rem-" 

2890 PRINT"-plissent l'écran." 

2900 PRINT 

2910 PRINT" Voila, vous savez tout 

II 

2920 PRINT" Et je n'est qu'une ch 
ose a vous" 

2930 PRINT" dire : "ïîPEN 2:PRIN 
T"BONNE CHANCE" 

2940 PEN 3sL0CATE 32,25:PRINT"CT0UC 
HE1 ":CALL &BB06:INK 0,2:INK i,11INK 
2,0:INK 3,3 
2950 GOTO 2400 
2960 ' ************ 

2970 ' * TABLEAUX * 

2980 ' ************ 

2990 ’ TAB 1 

3000 DATA 0,8192,10210,8210,2056,20 
50,2160,0,-1568,0 

3010 DATA 4,3,8,6,13,4,14,9,9,4,1,1 
0,16,1,10 
3020 ' TAB 2 

3030 DATA 0,16352,4,20996,17140,204 

5,16900,516,14368,32 

3040 DATA 2,2,4,10,13,2,13,9,9,7,16 

,4,4,3,10 

3050 ' TAB 3 

3060 DATA 4080,4104,10212,16386,327 
66,16386,16386,16386,32766,0 
3070 DATA 4,7,7,7,10,7,13,7,9,2,3,4 
,1,10,9 
3080 ' TAB 4 

3090 DATA 0,896,1088,-31672,-15736, 
-7928,8,15375,0,0 

3100 DATA 2,9,4,2,8,4,15,3,9,9,16,7 
, 1 , ^, 9 

3110 ' TAB 6 

3120 DATA 4,392,584,13932,8452,8580 
,12684,961,0,4 

3130 DATA 3,9,874,12,9,15,5,3,2,14, 
2 , 6 , 10,8 
3140 ' TAB 7 

3150 DATA 0,-2721,0,0,32766,0,0,-1, 
-15292,4368 

3160 DATA 3,3,4,6,10,1,14,6,8,9,1,1 
, 1 , 10,8 
3170 ' TAB 8 

3180 DATA -4370,10408,11502,-22366, 

20142,0,16654,16640,32246,0 

3190 DATA 2,4,5,7,12,4,15,8,10,7,1, 


C 5512 3 

C 397 3 
[361] 
[3241] 

[5946] 

[4912] 

[4327] 

[2609] 

[361] 

[4576] 

[4051] 

[3392] 

[1297] 

[361] 

[3370] 

[3263] 

[3212] 

[5574] 


[347] 

[502] 

[630] 

[502] 

[94] 

[2023] 


[1447] 

[933 

[2392] 

[1523] 

[92] 

[2464] 

[12723 

[913 

[24683 


[13733 

[893 

[17143 

[18853 

[883 

[14803 

[16593 

[1193 

[2492] 

[18973 


10.16.10.7 
3200 ' TAB 9 

3210 DATA 8576,962,966,-32320,24720 

,24768,192,448,29070,768 

3220. DATA 3,2,7,6,13,6,15,8,14,7,2, 

4.14.2.7 
3230 ' TAB 11 

3240 DATA 0,31902,4434,4434,-28334, 

-28526,0,6168,960,0 

3250 DATA 4,1,6,9,9,4,15,9,2,9,1,3, 

15.1.6 

3260 ' TAB 12 

3270 DATA 0,0,15196,11218,15058,108 
44,0,2064,2096,0 

3280 DATA 3,9,6,2,11,2,14,9,8,9,11, 

7. 1 . 1 . 6 

3290 ' TAB 13 

3300 DATA 18400,8194,4356,2056,1371 

2,2476,4112,8328,16388,2018 

3310 DATA 5,5,7,8,10,3,12,6,6,8,1,1 

0,13,1,5 

3320 ’ TAB 14 

3330 DATA 24,16,10772,10772,10772,1 

0773,10868,8822,15348,0 

3340 DATA 4,7,9,5,11,5,13,5,10,5,8, 

5,16,1,2,1,5 

3350 ' TAB 16 

3360 DATA 4624,528,4688,4160,4160,1 
6382,-16391,-32767,-32456,-16387 
3370 DATA 4,8,6,8,8,8,15,8,14,4,2,1 
0,1 ,3,4 
3380 ' TAB 17 

3390 DATA 0,0,-8739,0,30070,0,32511 
,3072,-3,0 

3400 DATA 5,2,9,2,7,4,7,1,7,3,16,1, 
1,10,4 

3410 ' TAB 18 

3420 DATA 0,-8976,0,644,584,560,584 
,644,16896,512 

3430 DATA 3,2,3,5,14,6,13,9,10,8,12 

,4,8,5,11,4,3 

3440 ' TAB 19 

3450 DATA -31743,-31737,-29187,-284 
16,-2714,17768,16651,14713,-32507,1 
7941 

3460 DATA 3,3,3,7,7,4,11,9,6,8,10,4 

,1,10,11,4,3 

3470 ' TAB 21 

3480 DATA 768,28674,21474,20482,206 

10,22174,29284,1153,0,-3746 

3490 DATA 12,8,12,2,5,2,3,5,14,8,7, 

5,1,1, 6 ,5,2 

3500 ' TAB 22 

3510 DATA 1056,31710,19024,19024,19 
032,29254,21058,19010,19422,1056 
3520 DATA 3,4,9,4,9,7,6,6,12,8,1,1, 
, 5, 2 , 1 , 2 
3530 ' TAB 23 

3540 DATA -32768,-24608,-32744,-250 
62,17050,16794,16410,4058,24,4088 
3550 DATA 3,3,8,5,14,8,15,2,3,8,8,4 
, 1 , 10,2 

3560 DATA ' TAB 24 
3570 DATA 0,8192,8204,8204,8204,218 
45,-21845,21845,-21845,21845 
3580 DATA 2,3,7,6,11,6,15,3,8,3,1,5 
, 1 , 10,2 

3590 ' TAB INTERMEDIAIRE 

3600 DATA 0,0,-196,0,-2068,0,32767, 

0 ,- 2,0 


[118] 

[1829] 

[2331] 

[271] 

[2832] 

[1542] 

[266] 

[1951] 

[1557] 

[269] 

[2237] 

[1547] 

[264] 
£2428] 

[1348] 

[262] 

[2939] 

[1253] 

[265] 
C1845] 

[1782] 

[260] 

C 2260] 

[2311] 

[263] 

[40033 


[1291] 

[265] 

[2721] 

£1951) 

[272] 

[2867] 

£2116] 

[271] 

[2854] 

[1477] 

[308] 

[2634] 

[2178] 

[1163] 

[1462] 
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PING & PONG 


CONSTRUCTION KIT 


f garées dans un univers 
étrange qui ne leur est 
pas coutumier, deux 
balles de pmg-pong de¬ 
vront rivaliser d'astuce 
pour rejoindre à temps le lieu 
du championnat. 

L'astuce de ce jeu somme 
toute classique (la quête de 
clefs ouvrant des passages) 
réside dans le couplage de 
deux personnages. Le passage 
sur certains objets présents 
dans le décor, facilite ou 
complique la tâche de nos 
héros. Un éditeur de tableaux 
(cinq tableaux d'origine) pré¬ 
sent dans le programme, per¬ 
met d'être i’artisant de son 
propre calvaire. Les règles du 
jeu et le mode d'emploi de 
l'éditeur sont inclus. 


Sauvegarde nom de votre choix 

Sauvez tout d'abord sous un (PINGPONG), le programme 


Basic principal. Entrez ensuite 
par Amsaisie (reportez-vous 
à son mode d'emploi) les 
codes hexadécimaux du se¬ 
cond listing. Spécifiez 96EC 
comme adresse de début et 
sauvez le langage machine 
par l'option « S » sous le nom 
« PING ». Si vous ne souhaitez 
pas saisir en une seule fois la 
totalité des codes, morcelez 
votre travail en créant plu¬ 
sieurs fichiers (PING 1, PING2, 
etc.). Ces derniers devront ul¬ 
térieurement être chargés à 
la suite (LOAD"PING 1 BIN" : 
LOAD"PING2.BIN", etc.) après 
un MEMORY &96EB et sau¬ 
vegardés ainsi dans un fichier 
unique : 

SAVE”PING",b,&96EC,8tAA0 

Claude Le Moullec 







t 

«f 

/. 

IK 

n ' 1 

■ 

■■■-• M 




1. I y ÉriUM 
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10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM 
90 REM 
100 REM 
110 REM 
120 SYMBOL AFTER 240 
130 SYMBOL 241,0,138,142,138,138,13 
8,234,0 

140 SYMBOL 242,0,224,128,128,128,12 
8,224,0 

150 SYMBOL 243,0,238,138,138,234,42 
,238,0 

160 SYMBOL 244,0,238,132,132,196,13 


PING $< PONG 
CONSTRUCTION 
KIT 

Claude Le Moullec 


«StftSSSSSSfS 


2,132,0 

170 SYMBOL 245,0,174,170,170,174,23 


4,170,0 

180 SYMBOL 246,0,238,168,232,204,16 
8,174,0 

190 MEMORY S<96EB 
200 L0AD ” ! ping ”,?<96EC 


210 REM 
220 REM 
230 REM 
240 REM 
250 REM 

260 CALL &BBFF: MODE 0:BORDER 0 


VARIABLES DE BASE 


270 DEFINT a-y:P0KE $<A024,0 

280 INK 0,0s INK 1,24s INK 2,13: INK 3 


C 17363 

14193 

[ 14603 

14193 

[11963 

[4193 

[6803 

[4193 

[20313 

C4193 

[17363 

[ 1392 3 

[21163 

[26073 

[27143 

[15513 

[26773 

[24183 

[7243 

[6473 

[17363 

[4193 

[20813 

C4193 

[17363 

[16333 

[10433 

[69273 


,16s INK 4,26s INK 5,18s INK 6,6s INK 7 
,15:INK 8,25:INK 9,7s INK 10,3s INK 1 
1,11 s INK 12,2s INK 13,9 

290 DIM sp <16)s FOR h=0 T0 15:sp(h +1 [31463 
>=$<96EC+(h*64) sNEXT 

300 FOR h=0 T0 6stabl<h+l)=&9AEC+<h [22373 
#209)» NEXT 


310 DIM jeu <21 ,13):pg = 3:ta=1 [10153 

320 DEF FN po<a,b)=&C002 + <b-l)*80+< [12263 
a-1)*4 

330 DEF FN je<c,d)=jeu<c+1,(d+1) 12 ) [10563 
340 TR$=CHR$(22)+CHRII1) [8063 

350 NR$=CHR*<22)+CHR*<0) [7003 

360 LMC*=CHR*<241}+CHRi<242)+CHR*<2 [39973 
43)+CHR$<244)+CHRI (245)+CHR$(246) 

370 G0SUB 2470s GOTO 2810 [14173 

380 j >: = 1 : k >s = 1 ï jy=2:ky = 2 [11923 

390 VIE=5:SC=0 [8963 

400 ENT 1,100,2,2sENV 1,100,3,1 [11883 

410 REM s : : : s s : s : : : s s s s : s s s : : : : [17363 

420 REM s : [4193 

430 REM : TABLEAU +1 s [5743 

440 REM : : [4193 

450 REM : s s : s s s : : : : : s s : : s s : s : s s [ 1736 3 
460 CALL &A039 ,&C050,sp(2) [ 14333 

470 FOR h=l T0 13:FOR g=l T0 21:jeu [19393 
(g ,h)=2:NEXT g,h 

480 L0CATE 1,1 s PR I NT SPACE*<20) [19073 


490 L0CATE 1,1:PEN 4: PRINT “TA V [43693 
I SC”j s PEN 6: L0CATE 16,1 :PRINT”0 
0000 ” 

500 L0CATE 3,1 :PRINT TA:LOCATE 9,1: [37083 
PRINT VIE:G0SUB 2380 

510 ON ta GOTO 520,540,560,590,620, [10563 
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PING & PONG 


650 

520 CALL ?<A0A8, tabl (ta) , 5 p < 1 ) 

530 >s = 7s y=9î>! 1 = 11 ïyl=21 : p>! = l jpy=23î 

pxl=19:pyl=23:G0TQ 750 

540 CALL &A0A8,tabl (ta) ,sp(l) 

550 x=7sy=23:x1 = 15:y 1 = 23spx = 1 :py=3: 

p>: l = 19i p y 1=23 s GOTO 750 

560 CALL ?<A0A8,tabl (ta) ,sp(l> 

570 x=12:y=5ixl=ll:yl=13:px=19:py=5 
: px 1 = 4 : p y 1 = 23: m y. = 3 : m y = 5 : ml = 1 î sens=l 
580 GOTO 750 

590 CALL «<A0A8,tabl (ta) ,sp(l) 

600 x = 17:y=13sx1 = 12 :y 1 = 19:px = 19:py= 
3: px 1 = 5: pyl=5î m>: = l ï my = 3ï ml = l : sens=l 
610 GOTO 750 

620 CALL &A0A8,tabl(ta),sp <1) 

630 x=6:y=9:xl=ll:yl=17:px=19:py=5: 
pxl=2:pyl=19:fflx=3:my=5:ml=l:sens=l 
640 GOTO 750 

650 IF PEEK(tabl(7)+31)=1 THEN 670 
ELSE ta=1 : GOTO 380 
660 PEN 6 :LOCATE 4,11:PRINT"PAS DE 
TABLEAU":WHILE INKEY-M "":WEND:TA= 1 : 
CLS:GOTO 380 

670 CALL «<A0A3,tabl (ta) ,sp(l) 

680 x =PEEK(tabl(7)+20):y = PEEK(tabl ( 
7)+21 ) 

690 x 1=PEEK(tabl(7)+22): y1 = PEEK (tab 
1(7)+23) 

700 px = PEEK(tabl(7)+24)ipy-PEEK(tab 
1(7)+25) 

710 px1=PEEK(tabl(7)+26):py1=PEEK<t 
abl(7)+27) 

720 IF PEEK(tabl(7)+28)=0 THEN 740 
730 ml=PEEK(tabl(7)+28):mx=PEEK(tab 
1<7)+29)smy=PEEK(tabl(7)+30):sens=l 
740 GOTO 750 

750 d = 0: FOR g = l TO 11 ï FOR h = l TO 19 
760 a = PEEK(tabl(ta)+d>: jeu(h + 1 ,g + l) 


= a 


770 d = d +1 ï NEXT h,g:SOUND 1,250,40,1 
5,,,12 

780 CALL ÎiAOOD , FN po (x 1, y 1 ) , sp (5) 


790 REM 
800 REM 
810 REM 
820 REM 
830 REM 


ROUTINE PRINCIPALE 


840 CALL S<A00D , FN po < x , y > , sp < 5 ) 

850 CALL StAOOD, FN po (x 1 , y 1 ) , sp (5) 
860 IF ml=1 THEN 1900 
870 IF INKEY(ha)=0 THEN 940 
880 IF INKEY <ba)=0 THEN 980 
890 IF INKEY <ga)=0 THEN 1020 
900 IF INKEY<da)=0 THEN 1060 
910 IF INKEY < f e)=0 THEN 2260 
920 GOTO 860 

930 REM : : : : : HAUT : : : : : 

940 IF pal=0 THEN dx=0:dy=-jy ELSE 
dx=0:dy=0 

950 IF pa2=0 THEN Fx-OiFy—ky ELSE 
Fx=0:Fy=0 


960 GOTO 1140 
970 REM : : : : : BAS 
980 IF pal=0 THEN 
x=0:dy=0 

990 IF p a 2 = 0 THEN 


: : : : : 

dx=0:dy=jy ELSE d 
Fx=0:Fy=ky ELSE F 


x=0:Fy=0 


1000 GOTO 1140 


C16463 
C 3634] 


C16463 
C30873 

C16463 
C 4659 3 

C 4233 

[16463 

[46413 


[4233 

[16463 

[32293 


[4233 

[17073 

[50773 


[16463 

[35793 

[24193 

[18743 

[17843 

[21773 

C34203 


[4233 

[24813 

C23203 

[25373 

[16063 

C17363 

[4193 

[22253 

[4193 

[17363 

[16413 

[16063 

[2893 

[9683 

[17423 

[10173 

[11753 

[11003 

[536 3 

[10103 

[19933 


[35003 

[3113 

[10203 

[23873 


[29393 

[3113 


1010 REM : : : : : GAUC : : : : : 

1020 IF pal = 0 THEN dx = -jx:d y = 0 :pg = 4 
ELSE dx=0:dy=0 

1030 IF pa2=0 THEN Fx=-kx:Fy=0 ELSE 
Fx= 0 :F y = 0 
1040 GOTO 1140 
1050 REM : : : : : DROI : : : : : 

1060 IF pal=0 THEN dx=jx:dy=0:pg=3 
ELSE dx = 0:dy=0 

1070 IF p a 2 = 0 THEN F x = k x ï F y=0 ELSE 
F >: = 0 : F y = 0 
1080 GOTO 
1090 REM 
1100 REM 
1110 REM 
1120 REM 
1130 REM 

1140 IF p a 1 = 1 THEN 1320 ELSE IF pa2 
=1 THEN 1250 

1150 x = x + dx:y = y+dy:x1 = x1+Fx: yl=y1+F 
Y 

1160 IF FN j e < x , y X 2 AND FN je(x 1,y 

1X2 THEN 1170 ELSE 1430 

1170 SOUND 1,300,5,1,1,1,15 

1180 CALL &AOOD,FN po(x-dx,y-dy),sp 

(15): jeu(x-dx + 1, (y + l-dy)/2)=0 

1190 CALL &AOOD ,FN po(x1-Fx,y 1 -Fy) , 

sp<15):jeu<xl-Fx+l,(yl+l-Fy)/2)=0 

1200 CALL 3<A00D,FN po (x , y ) , sp < pg+2) 

: j e u ( x +1, ( y +1 ) / 2 ) = 3 

1210 CALL &AOOD,FN po(x1,y 1),sp<pg + 

2): jeu(x1 + 1,<yl+l)/2>=4 

1220 CALL &AOOD,FN po(x1 , y 1) , sp(pg) 

1230 CALL $<AOOD,FN po (x , y ) , sp (pg) : G 

OTO 860 

1240 REM :::: PING BOUGE SEUL :::: 
1250 x=x+dx:y=y+dy 
1260 IF FN j e(x,y X 2 THEN 1270 ELSE 
1450 

1270 SOUND 1,300,5,1,1,1,15 

1280 CALL &AOOD,FN po(x-dx,y-dy),sp 

<15):jeu(x-dx+l,(y+l-dy)/2)=0 

1290 CALL ?<A00D ,FN po (x , y ) , sp (pg+2) 

: jeu (x + 1,(y + 1)/2>=3 

1300 CALL ?<AOOD, FN po (x , y ) , sp < pg ) : G 

OTO 360 

1310 REM :::: PONG BOUGE SEUL :::: 
1320 xl = x1+Fx: y 1=y1 + Fy 
1330 IF FN j e ( x 1, y 1 X 2 THEN 1340 EL 
SE 1460 

1340 SOUND 1,300,5,1,1,1,15 
1350 CALL &AOOD,FN po<x1-Fx,y 1-Fy) , 
sp ( 15) : j eu (x 1 - Fx + 1 , (y 1 +1 - Fy ) / 2 ) =0 
1360 CALL &AOOD,FN po<x1,y 1),sp(pg + 
2):jeu(xl+l,(yl+l)/2)=4 
1370 CALL !<AOOD , FN po (x 1 , y 1 ) , sp ( pg ) 
: GOTO 860 
1380 REM 
1390 REM 
1400 REM 
1410 REM 
1420 REM 

1430 IF FN j e ( x , y ) = 2 OR FN j e < >: 1, y 1 
) =2 THEN 1570 

1440 IF FN j e(x , y X 2 THEN 1460 ELSE 
1450 

1450 ON FN j e ( x , y) GOTO 860,1570,15 
70,1570,2260,1570,1670,1550,1580,16 
00,1490,1720 


:::::::::::::::::::: 
LES DIVERS CONTACTS 


1140 


PING «< PONG BOUGENT 
::::::::::::::::::: 


[11063 

[20313 


[31543 

[3113 

[11913 

[13003 

[28603 


[3113 

[17363 

[4193 

[19063 

[4193 

[17363 

[25713 

[19113 

[29883 

[14673 

[42943 


[47833 


[23543 


[38233 

[19863 

[17193 

[16793 

[14573 

[12313 


[14673 

[42943 

C2354 3 

[17193 

[11133 

[9713 

[10873 

[14673 

[47833 


[38233 


[25513 


[17363 

[4193 

[6713 

C4193 

[17363 

[19933 

[11813 


[43343 


il 














PING & PONG 


1460 ON FN j e < x 1, y 1 ) GOTO 860,1570, [38403 

1570,1570,2260,1570,1670,1560,1510, 

1530,1490,1790 

1470 jx = -lîGOTO 1170 C5523 

1480 jy=-2:GOTO 1170 C7453 

1490 jx=l:kx=l: jy=2:ky=2sIF pal = 0 A C24813 
ND pa2=0 THEN 1170 

1500 IF pal=l THEN 1340 ELSE 1270 C17203 
1510 k >i = -1 : IF pal = 0 AND pa2=0 THEN C35263 
1170. 

1520 IF pa1=1 THEN 1340 ELSE 1270 [17203 

1530 k y=—2 : IF pal=0 AND pa2=0 THEN [26943 
1170 

1540 IF pa 1 = 1 THEN 1340 ELSE 1270 [17203 

1550 IF p p 2 =1 THEN 1270 ELSE pal=l: C 1956 3 

INK 1,22:GOTO 3230 

1560 IF pp1=1 THEN 1340 ELSE pa2=l: [24323 
INK 1,22! GOTO 3230 

1570 x = x-d>: : y=y-dy : >: 1=>: 1 --f x s y l = y 1 -F [29943 
y : GOTO 860 

1580 jx--1 jIF pal = 0 AND pa2=0 THEN [11463 
1170 

1590 IF p a 1 = 1 THEN 1340 ELSE 1270 [ 17203 

1600 j y = — 2 : IF pal=0 AND pa2 = 0 THEN [9373 

1170 

1610 IF p a 1 = 1 THEN 1340 ELSE 1270 [17203 


1620 REM . [17363 

1630 REM : : [4193 

1640 REM s LES PORTES s [6893 

1650 REM : : [4193 

1660 REM : :::::::::::::j::::::: s [17363 


1670 CALL S< A 0 0 D, F N po(px , p y ) ,sp (8) [16853 

1680 CALL ?<AOOD,FN po(px 1,py 1 ) ,s|. <8 [ 14933 
) 

1690 jeu(px+1,(py+1)/2)=12:jeu(px1+ [25523 
1,<pyl + 1)/2> = 12 

1700 port = 1 : SOUND 1,2056,60,15:SC = S [30453 
C+10î GOSUB 2380:GOTO 1170 


1710 REM :::: PING PASSE :::: [9573 

1720 CALL &AOOD,FN po<x-dx ,y-dy ) ,sp [42943 

( 15) : jeu (x -dx +'l, (y + l - dy ) /2> =0 

1730 CALL &AOOD,FN po(x,y),sp(9): je [28383 

u(x+l,(y+l)/2)=6 

1740 SOUND 1,2056,60,15:pp1=1 [22573 

1750 DI : mu=REMAIN(3): pa1 = 1 :pa2=0: IN C23983 
K 1 2 4 : EI 

1760%a55=pas5+l:IF pase=2 THEN 217 [ 13053 
0 

1770 SC=SC+20:GOSUB 2380sG0T0 1330 [9653 

1780 REM : : : : PONG PASSE : : : : [6423 

1790 CALL !<AOOD, FN po<x1-f x,y 1-fy ) , [47833 
sp <15):jeu(xl-Fx+l,(yl+l-fy)/2)=0 
1800 CALL &AOOD,FN po(x1,y 1>,sp <9): [33253 
jeu(x1+1,(y 1 + 1)/2)=6 

1810 SOUND 1,2056,60,15:pp2= 1 [22773 

1820 DI s mu=REMAIN(3):pal=0:pa2=l:IN [31323 
K 1,24:El 

1830 pa55 = pa55 + l: IF pa55=2 THEN 217 [13053 

0 

1840 SC=SC+20:GOSUB 2380:G0T0 1260 [11783 

1850 REM ::::::::::::::::::::::: [17363 

1860 REM : : [4193 

1870 REM : LE PETIT DIABLE : [3973 

1880 REM : : [4193 

1890 REM ::::::::::::::::::::::: [17363 

1900 mx1=mx:my1=my [5923 

1910 ON sm GOTO 1920,2000,2040,2080 [24683 
1920 mx=mx +1 : IF FN je(mx,my>=3 OR F [34773 
N je <mx,my)=4 THEN 2260 

1930 IF FN je(mx,my)=0 THEN 1960 [12123 


1940 mx=mx-l [7643 

1950 5m=INT(RND*4)+1 : IF sm=1 OR sm= [31283 

3 THEN 1950 ELSE 870 

1960 CALL &AOOD,FN po (mx1,my1),sp(1 [18093 
5) 

1970 jeu(mx1 + 1 , (my1 + 1)/2)=0 [10573 

1980 CALL S<AOOD,FN po(mx ,my ) , sp (7) [19713 

1990 jeu(mx +1, (my + l)/2)=5»G0T0 870 [9663 

2000 my=my+2:IF FN je(mx,my)=3 OR F [42693 
N je(mx,my)=4 THEN 2260 

2010 IF FN je(mx,my)=0 THEN 1960 [12123 

2020 my=my-2 [5423 

2030 sm=INT(RND*4H-l: IF sm=2 OR sm= [16093 

4 THEN 2030 ELSE 870' 



2040 mx =m>:-1 : IF FN je(mx,my)=3 OR F [26553 
N je(mx,my)=4 THEN 2260 

2050 IF FN je(mx,myI=0 THEN 1960 [12123 

2060 rox=mx+l [7683 

2070 sm=INT(RND*4) +1 : IF sm=3 OR &m= [31503 

1 THEN 2070 ELSE 870 

2080 my=my-2:IF FN je(mx,my)=3 OR F [14753 
N je(mx,my)=4 THEN 2260 

2090 IF FN je(mx ,my)=0 THEN i960 [12123 

2100 my=my+2 [5383 

2110 5m=INT(RND*4)+1 : IF sm=4 OR sm= [32113 

2 THEN 2110 ELSE 870 

2120 REM ::::::::::::::::::::::: [17363 

2130 REM : : [4193 

2140 REM : GAGNE/PERDU : [13243 

2150 REM : : [4193 

2160 REM ::::::::::::::::::::::: [17363 

2170 FOR h=0 TO 3:mu=REMAIN(h):NEXT [20963 
2180 FOR H=1 TO 16: INK 0,H:SC=SC+5: [25043 
GOSUB 2380 

2190 SOUND 1,H*15,10,14: FOR T=1 TO [28463 
200:NEXT T,H:INK 0,0 

2200 ta=ta+l: IF ta = 7 THEN ta = l [19213 

2210 ERASE jeuiDIM jeu <21,13) [6953 

2220 pas5=0:pa1=0:pa2=0:INK 1,24 [20283 

2230 jx = l:kx = l:j y=2 :ky=2 [11923 

2240 ml=0:pp1=0:pp2=0:GOTO 460 [24663 

2250 REM : : : : PERDU : : : : [7543 

2260 FOR h=0 TO 3:mu=REMAIN(h):NEXT [20963 
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PING & PONG 


2270 vie=vie-l:BQRDER 26s INK 0,26;I 
NK 1,26;INK 2,26 

2290 OUT &BC00,2; OUT S.BC49,49; SOUND 
4,1500,50,7,0,0,10: DUT «<BC00,2:0UT 
S< B C 4 9,4 6 



2290 FOR t=l TO 4000:NEXT 

2300 BORDER 0:INK 0,0:INK 1,24:INK 

2,13 

2310 IF vie=0 THEN RUN 260 
2320 GOTO 2210 
2330 REM 
2340 REM 
2350 REM 
2360 REM 
2370 REM 

2330 PEN 0: IF SC>999 THEN LOCATE 16 
,1 : PRINT CHRI (143)+(143)+CHRI(143)+ 
CHRI(143):PEN 6:L0CATE 17,1:PRINT T 
RI j SC;NRI:RETURN 

2390 IF S C > 9 9 THEN LOCATE 17,1 s P RIN 
T CHRI(143)+CHRI(143)+CHRI <143):PEN 
6:LOCATE 16,1sPRINT TRI;SC;NRI:RET 
URN 

2400 IF SC >9 THEN LOCAT'E 13,1 : P RIN T 
CHRI < 143) +-CHRI < 143) :PEN 6:L0CATE 1 
7,1 : PR I NT TRI; SC ;NRI:RETURN 
2410 LOCATE 19,1 :PRINT CHRI<143)s PE 
N 6;LOCATE 18,1aPRINT TRI;SC;NRI:RE 
TURN 

2420 REM 
2430 REM 
2440 REM 
2450 REM 
2460 REM 
2470 EVERY 5,. 

EYIO" " : WEND 

2480 GOSUB 2690:PL0T -10,-10,1 s 2 c = 2 
00:zd=128;za=150:zb=70:GOSUB 2500 
2490 zc = 200:z d = 124:z a=150:z b = 70:GOS 
UB 2500:GOTO 2530 

2500 ORIGIN zc,zd:zT=2/S0R<za*za+zb 
*zb):zfl=zf*za/zb:zf2=zf*zb/za:zc=z 



,2 GOSUB 2790:WHILE INK 


a : z d=0 

2510 zim=l+PI/z-f/2:F0R zi=0 TO z i m : 
PLOT z c,z d: PLOT zc,-zd:PLOT -zc,zd: 
PLOT -zc,-z d 

2520 zc=zc-zFl*zd:zd=zd+zf2*zc;NEXT 
zi:RETURN 

2530 ORIGIN 0,0:FOR H = 62 TO 194 STE 
P 4:X=200: X1 = X 

2540 IF TEST < X , H) = 1 THEN X = X1 : GOTO 
2550 ELSE PLOT X , H, 3: X = X +-4 : GOTO 254 
0 

2550 IF TEST(X,H) = 1 THEN 2560 ELSE 
PLOT X,H,3:X = X —4: GOTO 2550 
2560 NEXT 

2570 PEN 12: LOCATE 1,1:PRINT tri 
2580 LOCATE 12,17: PRINT STRING!(4,C 
HR!<143)) ;LOCATE 12,18:PRINT STRING 
1(4,CHRI(143)) 

2590 LOCATE 12,17 ï PEN 2:PRINT STRIN 
G! <4,CHRI(206))+CHRI(133):LOCATE 1 
2,18: PRINT STRING! (4,CHRI(206))+CH 
R!(133) 

2600 PEN 5:LOCATE 3,23:PRINT "CONST 
RUCTION KIT":PEN 4:L0CATE 14,6 : PR IN 
T "PING":PEN Ils LOCATE 15,8:PRINT " 
et " 

2610 PEN 6:LOCATE 14,10sPRINT "PONG 


[19331 

[42283 


[1133] 

[2769] 

[ 868 ] 

[3613 

[17363 

[4193 

[1698] 

[4193 

[17363 

[63403 


[78123 


[55583 


[36953 


[17363 

[4193 

[1858] 

[4193 

[17363 

[24483 


[34083 



[5238] 


[18953 

[32513 

[39483 

[39053 

[350 3 

[21183 

[49763 


C59383 


[70203 


[37273 


":TAG:PLOT -10,-10,5:MOVE 40,360:PR 
INT 1 met ; :TAGOFF 

2620 mu = REMAIN (2) : POKE &A024 , tcAEi xl [27803 
=3:>:2=8: d 1 = 1 : d2-l :ENT 4,15,-1,3:ENV 
4,15,-1,3 

2630 CALL &AOOD,FN po (4 ,>: 1 > , sp (3) s C [3033 3 
ALL &AOOD,FN po(7,>:2) ,sp(4) 

2640 FOR t=l TO 50:NEXT [997] 

2650 CALL iAOOD,FN po(4 ,>: 1 ) , sp (3) : C [30333 
ALL JtAOOD, FN po (7 ,>:2) , sp (4 ) 

2660 >: 1=>: 1+dl : IF >: 1 = 17 THEN d 1 = -1 : S [45323 
OUND 4,200,45,15,4,4 ELSE IF >:1 = 3 T 
HEN d1=1 

2670 >:2 = >:2 + d2: IF >:2 = 17 THEN d2 = -l : S [30993 
OUND 4,200,45, 15,4,4 ELSE IF >:2=4 T 
HEN d2=1 

2680 at = INKEYt: IF aî="" THEN 2630 E [2081 ] 
LSE 2800 

2690 FOR H=1 TO 5:M0VE 30,H:DRAW 61 [42363 
0,H,12:NEXT:FOR H=6 TO 20:M0VE 30,H 
: DRAM 610, H,6:NEXT 

2700 FOR H=20 TO 22:M0VE 30,H:DRAW [52033 
610,H,1:NEXT:FOR H=1 TO 8:M0VE H,26 
: DRAW H,374,12:NEXT 

2710 FOR H=8 TO 20:M0VE H,26:DRAW H [47103 
,374,6:NEXT:FOR H=20 TO 22:M0VE H,2 
6:DRAW H,374,1 :NEXT 

2720 FOR H=616 TO 620:M0VE H,26:DRA [62853 

W H,374,1 :NEXT: FOR H=620 TO 632:M0V 

E H,26:DRAW H,374,6ï NEXT 

2730 FOR H=632 TO 636:M0VE H,26:DRA [52683 

W H,374,12:NEXT:FOR H=394 TO 400:M0 

VE 30,H:DRAW 610,H,12:NEXT 

2740 FOR H=3B2 TO 392:M0VE 30,H:DRA [36773 

W 610, H,6 :NEXT: FOR H=378 TO 380:M0V 

E 30,H:DRAW 610,H,1î NEXT 

2750 X=20: FOR T=1 TO 22:M0VE T, X : DR [36893 

AW T,20,12:X=X-1:NEXT T 

2760 X = 380:FOR T=1 TO 22:M0VE T,X :D [32963 
RAW T,380s X = X + 1:NEXT T 

2770 X=380 : FOR T=618 TO 636:M0VE T, [33103 

380:DRAW 618,X : X = X +1 : NEXT T 

2780 X=1 : FOR T = 618 TO 636:M0VE T,20 [28483 

: DRAW T,X:X = X + 1:NEXT T :RETURN 

2790 SOUND 1,1NT<RND*600)+60,5,15:R [20133 


ETURN 

2800 POKE $<A024,0:CLS: RETURN [ 10483 

2810 REM : : : : : : : : : : : : : : : : : : : : : : : [ 17363 

2820 REM : : C 4193 

2830 REM : MENU CARREFOUR : C129i3 

2840 REM : : [4193 

2850 REM : : : s s : : : : : : : : : : : : : : ; s : : [ 17363 


2860 WHILE INKEYIO" " : WEND: ga=74: da [45283 
=75:ha=72:ba=73:fe=76 

2870 MODE 1:PEN 3:L0CATE 11,5:PR INT [99203 
STR ING! <21, ” : LOCATE 11,19 : PR I NT 

STRING!<21, "*"):FOR h=6 TO 18:L0CA 
TE 11,h:PRINT "*":LOCATE 31 ,h:PRINT 
" * " : N E X T 

2880 PEN 2:LOCATE 14,7:PRINT"1 [44533 

PEN liPRINT" EXPLICATIONS" 

2890 PEN 2 :LOCATE 14,10 : PR I NT " 2 -"; [4341 3 
:PEN liPRINT" JOYSTICK" 

2900 PEN 2:LOCATE 14,13:PRINT"3 -"; [41183 
:PEN liPRINT" CLAVIER" 

2910 PEN 2:LOCATE 14,16:PRINT"4 -"; [31773 
:PEN liPRINT" CONSTRUCTION" 

2920 At=INKEYt:IF. a!*"" THEN GOTO 2 [20243 
920 
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PING & PONG 


2930 PR INT CHR» ( 7 ) : IF A»="l" THEN 3 
030 

2940 IF A*="2" THEN 4000 
2950 IF Af="3" THEN 4010 
2960 IF A»="4" THEN 3130 
2970 GOTO 2920 
2980 REM 
2990 REM 
3000 REM 
3010 REM 
3020 REM 

3030 CLS ! LOCATE 15,1 : PRI NT "P ING J< P 
ONG":PEN 2:L0CATE 15,2 : P RIN T ”- 

_Il 

3040 PEN 3:LOCATE 1,4:PRINT" Deux 
petites baballes sont attendues av 
ec impatience pour disputer une par 
tiede tennis de table." 

3050 LOCATE 1,7s PRINT" Mais avant 
tout,elles doivent sortir de leur 
univers inhospitalier." 

3060 LOCATE 1,9s PRINT" Une clef,p 
our ouvrir deux portes,celadevrait 
etre simple. " 

3070 LOCATE 1,11ïPRINT" Cela l'es 
t moins,lorsque l'on sait qu'elle 
s ne possèdent qu'un cerveau pourde 
ux,et qu'elles font donc ,ensemble, 
1 es memes gestes." 

3080 LOCATE 1,15:PRINT" Heureusem 
ent,quelques pots de glue , des in-' 
ersions de commandes et meme un pe 
tit monstre sont la pour Faciliter 
ou compliquer votre tache." 

3090 LOCATE 1,19iPRINT" Les cas d 
e blocage étant nombreux,la touche 
FIRE ou C0PY vous permettra de re 
1ancer 1e tableau. " 

3100 PEN 1:LOCATE 1,22:PRINT" Si 
5 tableaux ne vous suffisent pas ;f 
aites les vôtres... “ 

3110 LOCATE 33,25:PEN 2:PRINT "<ENT 
ER5 ":WHILE INKEYf="":WENDs GOTO 2860 

3120 REM :::: EXPLICATION KIT :::: 
3130 CLS:LOCATE 12,1î PRINT"CONSTRUC 
TION KIT":PEN 2:L0CATE 12,2:PRINT"- 


3140 PEN 3:LOCATE 1 , 4 : P RIN T" La c 
onstruction d'un tableau se fait av 
ec les touches f1echees,COPY et ENT 
ER" 

3150 PEN 3:LOCATE 1 f BsPRINT" En h 
aut de l'écran,tout les éléments do 
nt vous avez besoin." 

3160 LOCATE 1,11 : PR INT” Les 5 pre 
miers sont uniques;une fois en plac 
e,ils deviennent inamovibles." 

3170 LOCATE 1,, 14:PRINT" La touche 
FIRE/C0PY valide l'element choisi 
a la place de la mire.La touche EN 
TER remet la mire en haut de 1'ecra 
n. " 

3180 LOCATE 1, 19ï PRINT" < C > : C 
LS du tableau en cours." 

3190 LOCATE 1,21sPRINT" < S > : S 
AVE du fichier binaire" 

3200 LOCATE 1,23s PRINT" < P > i P 

LAY immédiat du tableau " 


EXPLICATIONS 


[2214] 

[6073 

[11073 

[7423 

[339 3 

[1736] 

[419] 

[6233 

[419] 

[17363 

[54573 


[117723 


[88013 


[6041] 


[148203 


[141173 

[97843 

[68543 

[4596] 

[1164] 

[3729] 

[82783 

[64613 

[86713 

[110683 

[22993 

[48863 

[46363 


3210 LOCATE 33,25:PEN 2:PRINT "< E N T 
ER>":WHILE INKEY*="":WEND:MODE 0: GO 
T 0 3330 

3220 REM ::::::: TEMPO ::::::::: 

3230 AFTER 300,3 GOSUB 3250 
3240 SOUND 1,300,20,5, ,, 15:GOTO 117 
0 

3250 DI:IF pp1 = 0 THEN pal = 0 
3260 IF pp2=0 THEN pa2=0 
3270 INK 1,24:EI :RETURN 
3280 REM 
3290 REM 
3300 REM 
3310 REM 
3320 REM 

3330 CALL &A039,&C050,SP<2): FOR h = 0 
TO 208:POKE tabl<6>+h,1 :NEXT 
3340 FOR h=0 TO 40:P0KE tabl<7)+h ,0 
:NEXT 

3350 LOCATE 1,1:PRINT STRING»(20," 

"):LOCATE 1,2:PRINT STRING»(20, " *) 
3360 RESTORE 3390:FOR h=0 TO 76 STE 
P 4 :READ a 

3370 IF a< 16 THEN CALL &A00D,&C000+ 
h,sp(a) 

3380 NEXT 

3390 DATA 3,5,9,10,9,7,11,1,2,15,12 

,14,13,15,21,15,22,15,23,15 

3400 RESTORE 3410:F0R h = 0 TO 19:REA 

D a :POKE tabl<7)+h,a:NEXT 

3410 DATA 3,4,6,7,6,5,8,1,2,0,9,11, 

10,0,12,0,13,0,14,0 

3420 FOR h=1 TO 13: FOR g = l TO 21 : je 

u(g,h)=2:NEXT g,h 

3430 FOR h=2 TO 12:FOR g=2 TO 20:je 
u < g,h > = 1 :NEXT g,h 

3440 DATA 3,4,6,7,6,5,8,1,2,0,9,11, 

10,0,12,0,13,0,14,0 

3450 TAG:PLOT -10,-10,6:MOVE 448,39 

2:PRINT "C S P" j :TAGOFF 

3460 POKE S<A024 ,&AE: CALL «<A00D,&C00 

0, sp < 16) : ex =0 

3470 a»=INKEYt: IF a»="" THEN 3470 
3480 IF a»*CHR»<243) THEN 3510 
3490 IF a»=CHR»(242) THEN 3530 
3500 IF at=CHR»(224) THEN 3550 ELSE 
34 70 

3510 CALL &A00D , J<C000+cx , sp ( 16) : cx = 
cx+4:IF ex >76 THEN cx=0 
3520 CALL &A00D ,&COOO + cx,sp(16) : GOT 
0 3470 

3530 CALL ?<A00D ,&C000+CX , sp ( 16) : cx = 
ex-4:IF cx<0 THEN cx = 76 
3540 CALL fcAOOD,fcCOOO+cx,spU 6) : GOT 
0 3470 

3550 5X=(cx/4)+1 : RESTORE 3390:F0R h 
=1 TO sx:READ a:NEXT 
3560 IF a>20 THEN 3830 
3570 IF PEEKitabl(7)+(sx-l))=0 THEN 
a = 15 

3580 x = 10 : y~ 13:x1=x: y 1 = y:add=104 : CA 
LL &A00D,FN po<x,y>,sp<16) 

3590 k»=INKEY»: IF k»="" THEN 3590 

3600 IF l:»=CHR»(240) AND y>4 THEN y 

=y-2:add=add-19:G0T0 3670 

3610 IF k»=CHR»(241) AND y<22 THEN 

y=y+2:add=add+19:G0T0 3670 

3620 IF k»=CHR»(242) AND x>l THEN x 

=x-l:add=add-l:G0T0 3670 


i i > i i i i i > i • • i i < i 

CONSTRUCTION KIT 


[45913 


[2182] 

[794] 

[2128] 

[1087] 

[849] 

[10973 

[1736] 

[419] 

[1311] 

[419] 

[1736] 

[2955] 


[2341] 

[30163 

[1954] 

[2889] 


[350] 

[2328] 

[2973] 

[2586] 

[1939] 

[1982] 

[2586] 

[4142] 

[1650] 

[1395] 
[461 ] 
[881] 
[1436] 

[2428] 

[1825] 

[ 3335 ] 

[1825] 

[2631] 

[5273 

[22753 


[40893 

[14053 

[19433 

[32923 

[10783 
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PING & PONG 


3630 IF fc*=CHR*<243) AND >:< 19 THEN 12723] 
x = x + l;add=add+l: GOTO 3670 
3640 IF l:*=CHR* ( 224 ) THEN 3700 Cl 1563 

3650 IF ti$=CHRÎ (13) THEN 3740 C4333 

3660 GOTO 3590 C4913 

3670 CALL ?<AOOD,FN po<>: 1,y 1 ) , sp ( 16) [ 17533 
3680 CALL «<AOOD,FN po <x , y ) , sp II 6 ) : >: [ 2045 3 
l = >i s y 1 = y ! GOTO 3590 

3690 REM : : : AFF SPRITE CHOISI ::: C 1522 3 
3700 c=PEEK<tabl<6)+add): IF c>2 AND C41483 
c<8 THEN PRINT CHR*(7)iGOTO 3590 
3710 POKE ?<A024,0: CALL 5<A00D,FN po< C21553 
>i, y) , sp (a) 

3720 b=PEEK<tabl ( 7) + <s>i -1 ) ) s POKE ta C 5699 3 
bl<6)+add,b: IF b>2 AND b<8 THEN 375 
0 

3730 POKE &A024 , $<AE : CALL &AOOD.FN p C 30623 
o (>!,y ) , sp ( 16) : GOTO 3590 

3740 CALL &AOOO,FN po<x,y),sp(16):C C36353 
ALL &AOOD,&COOO+cx,spI16)s GOTO 3460 
3750 CALL &AOOD,ïsCOOO+c* , sp ( 15) : CAL [60823 
L &AOOD,S<COOO+c>: ,sp<16) icode=tabl 17 
) + (s>: -1 ) s POKE code,0: ÇOKE S<A024 ,&AE 
3760 IF b = 3 THEN POKE tabl<7)+20,x! C38583 
POKE tabl(7)+21,y : GOTO 3470 
3770 IF b = 4 THEN POKE tabl <7) +22,>: : C3809 3 
POKE tabl(7)+23,y: GOTO 3470 
3780 IF b = 6 AND PEEK<tabl(7)+24)< >0 C49473 
THEN POKE tabl(7)+26,xiPOKE tabl (7 
)+27,y î GOTO 3470 

3790 IF b = 6 THEN POKE tabl (7)+24 ,>! [20503 
iPOKE tabl17)+25,y:GOTO 3470 
3800 IF b = 7 THEN 3470 C4563 

3810 IF b = 5 THEN POKE tabl(7)+28,1 : C55113 
POKE tabl< 7)+29,x ï POKE tabl<7)+30,y 


: GOTO 3470 

3820 GOTO 3470 C4753 

3830 b=a-20:ON b GOTO 3850,3880,392 C27223 
0 

3840 REM :::: CLS C5953 

3850 PEN 6sLOCATE 5,25s PRINT "CLS C34673 
" s G 0 S U B 3950 

3860 IF rep= 1 THEN POKE !<A024,0:G0T [31393 
0 3330 ELSE 3470 

3870 REM :::: SAVE : : s : C7703 

3880 PEN 6s LOCATE 5,25s PRINT "SAVE C23633 
"sGOSUB 3950 

3890 IF rep=1 THEN 3900 ELSE 3470 C15633 
3900 SAVE " Iping" ,b,S<96EC,&AA0sG0TQ C35193 
3470 

3910 REM s s s : PLAY ssss [7113 

3920 PEN 6 s LOCATE 5,2 5 s P RIN T "PLAY C29963 
"sGOSUB 3950 

3930 IF rep=l THEN POKE tabl<7)+ 31, C36143 
1 s t a = 6:POKE fcA024,0sCLS s GOTO 380 
3940 GOTO 3470 C4753 

3950 PEN 6s LOCATE 10,25:PRINT "? (Y C 20713 
/N)"s rep = 0 

3960 a*= INKEY*s IF a*®"" THEN 3960 C 13523 

3970 a*=UPPER*U*) : IF a*="Y" THEN r C22853 
ep=1 : GOTO 3990 

3980 IF a $ = " N " THEN 3990 ELSE 3960 E10783 

3990 LOCATE 5,25:PRINT STRING*<12 , " C38113 
")sRETURN 

4000 ga = 74:da = 75:ha=72:ba = 73:fe=76s C31853 
MODE Os GOTO 380 

4010 ga = 3:da = 1 :ha = 0:ba = 2sCe=9: MODE C25373 
0:GOTO 380 


96EC 

s 00 

08 

04 

04 

OC 

00 

08 

04: 

AA 

9804 

980C 

CO 

CO 

34 

90 

94 

90 

96F4 

s 10 

04 
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SPRITER 
& IMPLANT 


0 - >79 


199 


es éditeurs de sprites 
classiques ont deux dé¬ 
fauts : 

— les options qu'ils propo¬ 
sent pour la création des 
sprites, sont bien souvent in¬ 
suffisantes (absence d'option 
de remplissage de zones, de 
rotation, de zoom, etc ). 

— Ils occupent de la place en 
mémoire et réduisent d'autant 
le nombre de sprites. 

D'où l'originalité de Spriter. 
permettant la création de 
sprites à partir de pages 
écrans préalablement réali¬ 
sées à l'aide d'un utilitaire de 
DAO quelconque. 

Utilisation 

O Dessinez des sprites grâce 
à votre utilitaire de dessin fa¬ 
vori et sauvez-les en pages 
écrans normales. 

O Chargez Spriter. Modifiez 
si nécessaire l'adresse d'im¬ 
plantation des sprites. qui doit 
être comprise entre 10 000 
et 42 000 afin de ne pas em¬ 
piéter sur les RSX (cf. pro¬ 
gramme Implant). 

O Sélectionnez l’option Char¬ 
gement écran Déplacez au 
moyen du joystick, le rectan¬ 
gle qui figure sur l'écran et 
modifiez sa taille par les tou¬ 
ches fléchées. Validez par Fl RE 
ou COPY ; le sprite est alors 
codé. ENTER permet le retour 
au menu principal, ce qui est 


très utile pour charger une 
page écran différente et y sai¬ 
sir d'autres sprites. Votre fi¬ 
chier sprites au complet, sau- 
vez-le par l'option Sauvegarde 
sprites. Le programme précise 
alors le nombre N de sprites 
codés et l'adresse de la table 
des sprites que vous'devez 
noter. 

O Après un RESET de l'ordi¬ 
nateur, chargez le programme 
Implant (ou incorporez-le 
dans vos programmes). Dans 
tous les cas, faites-le tourner 
après un SYMBOL AFTER 
Chargez également votre fi¬ 
chier sprites, après avoir abais¬ 
sé HIMEM (faites MEMORY 
imp-1, où « imp » est l'adresse 
d'implantation de vos sprites). 
Vous disposez à présent de 
deux nouvelles instructions : 

— ITABLE.adr : où « adr » dé¬ 
signe l'adresse de la table des 
sprites que vous avez précé¬ 
demment notée. Cette ins¬ 
truction ne sert en principe 
qu'une fois. 

— ISPRITE.n.x.y : où « n » pré¬ 
cise le numéro du sprite à af¬ 
ficher (de 0 à N- 1 ). « x » son 
abscisse et «y» son ordon¬ 
née. 

Quelques précisions 

O Les coordonnées sont en 
octets, la structure de l'écran 
est donc la suivante : 


O Le sprite ne s'affichera pas 
si n. x ou y sont faux, ou bien 
encore si le sprite sort de l'é¬ 
cran en raison de sa largeur 
ou longueur trop excessive. 

O L'affichage des sprites se 
fait en mode XOR. Donc, pour 
effacer un sprite, il suffit de 
l'afficher une seconde fois au 
même endroit. 

O Dans Spriter. la fusion des 
fichiers de sprites se réalise 
par l'option Chargement 


sprites, sans modifier l'adresse 
d'implantation. 

Adaptation 
464 cassette 

Ligne 260 : supprimer le CAT. 
Ligne 300 LOAD 'T + 

n$,&C000 

Lignes 760et 920 : supprimer 
PEN 1 : a$="*.spr" IDIR,@aS 
Lignes 780 et 950 : n$= "! " + 

LEFTS (n$,8) + " spr ' 

Hervé Inisian 
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SPRITER & IMPLANT 


10 ' ****************************** 
20 ' ** ** 
30 1 ** SPRITER ... INI SAN HERVE ** 
40 ' ** ** 

50 ' ****************************** 
60 ' 

70 MODE 1 

80 DATA 0,13,25,26,2,3,4,5,6,7,8,9, 
10,11,12,13 

90 READ c: INK 0,c:BORDER c 

100 FOR t = l TO 15s READ es INK t,csNE 

XT 

110 OPENOUT"d": MEMORY 9849:CLOSEOUT 
120 ' 

130 ' *** IMPLANTATION LM : TRAMSFE 
RT ZONE ECRAN GRAPHIQUE 
140 ' 

150 DATA 01,00,00,11 ,00,00,c5,21,40 
, 01,cl,c5,d5,09,eb,e5,cl,21,c8,00,e 
d,42,d5,e5,cd,T0,bb,cd,de,bb,ei,dl, 
1 b,00,00,00,00,00,c b,ea,bb,d1,13,1 3 
, 21,50,00,ed,52,30,d4,c1,03,03,03,0 
3,21,7c,00 , ed,42,30,c4,c9 
160 FOR t=0 TO 63:READ atsPOKE 9850 
+ t, VAL ( "ïi" ) : NEXT 

170 ' 

180 ' *** IMPLANTATION LM : CODAGE 
SPRI TE 
190 ' 

200 DATA 06,14,21,04,fl,11,00,80,c5 
, e5,01,Oa,00,ed,bO,e1,01,00,08,09,3 
0,04,01,50,c0,09,c1,10,eb,ed,53,0a, 
27,c9 

210 FOR t=0 TO 33:READ afsPOKE 9960 
+t,VAL<\V + a*) s NEXT 
220 1 

230 ' *** INITIALISATION 
240 ' 

250 adimpl=10000sdepart=adimpl:GOTO 
980 

260 MODE 1 s CAT :PEN 2:PRINT"Nom de 1 
'écran a charger ( +esi t ensi on ) s": IN 
PUT” (ENTER pour abandonner) : ",nl: 
IF n#=" "GOTO 980 

270 PRINT:INPUT”Mode écran (0/1) : 

”,<nds IF md<0 OR md>l GOTO 270 
280 IF md=1 THEN dpl=2:pok=0 ELSE d 
pl=4:poti = 3 

290 POKE 9904 , pôle : POKE 9905, pol: 

300 MODE mdsLOAD n*,lC000;x»320sy«2 
00:1ar=20:Ion=20 
310 ' 

320 ' *** NOYAU 
330 

340 PRINT CHR*(23)CHR*(l):adl=adimp 
1 

350 MOVE >s, y : DRAWR 1 ar , 0,1 : DRAWR 0, 
-lonsDRAWR -1ar,0:DRAWR O,lon 
360 al=LOWER$(INKEYD:a=JOY(0) 

370 IF a$=""AND a=0 GOTO 360 
380 MOVE >i, y : DRAWR 1 ar , 0,1 : DRAWR 0, 
-lonsDRAWR -1ar ,0:DRAWR 0,lon 
390 IF a<>0 GOTO 400 ELSE 450 
400 IF a=1 THEN IF y<397 THEN y=y+2 
: GOTO 350 

410 IF a = 2 THEN IF.y-lon>l THEN y=y 
-2s GOTO 350 

420 IF a = 4 THEN IF >: >dp 1 -1 THEN >: =>: 
-dpi:GOTO 350 

430 IF a = 8 THEN IF >s + lar<639-dp1 TH 


[ 1252] EN >: =>i +dpl : GOTO 350 

[104] 440 IF a=16 GOTO 540 ELSE 350 

[2361 ] 450 IF a*=CHR*(240)THEN IF lon>l TH 

[104] EN 1on=lon-2:GOTO 350 

[1252] 460 IF a$=CHR$(241)THEN IF y-lon>l 

[117] THEN 1on=lon+2:GOTO 350 

C506] 470 IF al=CHR$(242)THEN IF lar>dpl- 

[24433 1 THEN 1ar = lar-dpl: GOTO 350 

480 IF a$=CHR$ (243) THEN IF >s + lar<63 

[851 3 9-dpl THEN 1ar = lar+dpl: GOTO 350 

C 17643 490 IF al=CHRI(13)GOTO 980 

500 IF alOCHRM 224) GOTO 350 
[28623 510 ' 

[1173 520 ' *** TRANSFERT ZONE ECRAN 

[34393 530 ' 

540 LOCATE 1 ,1 :PRINT CHRt(23)CHRf (0 
[1173 ) 

[90183 


[18183 

[25523 

[14013 

C29553 


[23763 

[797] 

[19063 

[1173 

[18603 

[1173 

[9683 


[31563 


[1173 

[28503 

[1173 

[62273 


[27013 

[1173 

[12903 

[1173 

[18343 

[87063 


[22013 

[25923 

[11083 

[37053 


[1173 

[4513 

[1173 

C22873 

[34383 

[21953 

[14463 

[34383 


[22783 

[30363 


[23463 

[16163 


[32153 



550 IF md = 0 THEN n» 11 = >:/4 MOD 2 ELSE [32953 
ml t=>: /2 MOD 4 

560 IF m11 = 0 GOTO 660 [8823 

570 POKE 9882,&1B:FOR t=0 TO 4:P0KE C14383 
9883+t,0:NEXT 

580 IF md= 1 THEN FOR t=0 TO mlt*2-l [25433 
s POKE 9882+t,MB: NEXT 

590 msb= INT <>:/256) : 1 Bb=>:-msb*256sPO [32843 

KE 9858,15b:POKE 9859,msb 

600 msb=INT(y/256):lsb=y-ro5b*256:P0 [23563 

KE 9868,15b:POKE 9869,msb 

610 m5b = INT<lon/256>:lsb = lon-n>5b*25 [49203 

6:POKE 9895,1sb:POKE 9896,msb 

620 m s b =INT((lar + (mlt + l)*dpl)/256): [54603 

l5b = lar + (mlt + l)«dpi-msb*256 s POKE 99 


07,1sb:POKE 9908,msb 

630 CALL 9850: >: =>! -dpi *ml t [21043 

640 ' [1173 

650 ' *** CODAGE [5823 

660 ' [1173 


670 POKE adimpl,INT(1ar/8)+1 :POKE a [26903 

dimpl+l,lon/2+l:adimpl=adimpl+2 

680 o>: = INT (>s/8) :oy=199-INT <y/2)’s adr C 36193 

1=49152+80*INT(oy/8)+2048* <oy MOD 8 

) +o>: 

690 msb=INT(adrl/256):lsb=adrl-msb* [27133 

256:POKE 9963,1sb:POKE 9964,msb 

700 msb=INT(adimp1/256):lsb=adimpl- [29243 

msb*256:POKE 9966,1sb:POKE 9967,msb 

710 POKE 9961 ,INT <1 on/2)+1 s POKE 997 [27133 

1,INT <1ar/8)+1 
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SPRITER & IMPLANT 


720 CALL 9960:adimpl=PEEK(î<270A)+25 [26683 
é>*PEEK < 5c270B ) j GOTO 340 

730 ' [1173 

740 ' *** SAUVEGARDE FICHIER 116843 

750 ' [1173 

760 MODE IîPEN 2iPRINT"SAUVEGARDE F [132773 
ICHIER"s PR I NT :PEN 1 :ai="*.spr " s ! DIR 
,@ai:PEN 2:PRINT"Nom du fichier san 
5 extension :"sINPUT"(ENTER pour ab 
andonner) : ",ni 

770 IF ni=”"GOTO 980 [10673 

780 GOSUB 820s ni=LEFTi(ni,8)+".spr " [ 1 18663 
ïPRINTïPEN 3sPRINT”Adresse table s 
?<"HEXi(adtab) " = "adtab s PRINTs PRINT"N 
ombre de sprites :"; nsPRINTsPRINT"L 
ongueur du fichier :"jadtab1-depart 
+ 1 


790 SAVE ni,b,depart,adtab1-depart+ [36333 
1 s CALL &BB06: GOTO 980 

800 ' [1173 

810 ' *** IMPLANTATION TABLE [16133 

820 ‘ [1173 

830 POKE adimpl,255:POKE adimpl+1,2 C28333 


840 adtab = adi mpl+2:adtabl = adimpl+3 [30953 

850 g=departsn=0 [8893 

860 a = PEEK <g):b=PEEK(g+l): IF a=255 [62223 

AND b = 255 THEN n=MIN<n,2553 sPOKE ad 
tab,n:RETURN 

870 n=n+l:msb=INT(g/256):lsb=g-256* [43963 
msbsPOKE adtab 1,1sb:POKE adtabl+l,m 
sb 


880 adtabl=adtabl+2:g=g+2+a*b:G0T0 [25283 
860 

890 ’ [1173 

900 ' *** CHARGEMENT [6483 

910 ' [1173 

920 MODE 1 :PEN 2s PRINT"CHARGEMENT F C34373 

ICHIER":PRINT:ai="*.spr” : PEN 1:ÎDIR 
, @ai 

930 PEN 2:PRINT"Nom du fichier a ch [47333 


arger,sans extension":INPUT"1 ENTER 
pour abandonner) : ”,ni 
940 IF ni= ”"GOTO 980 
950 ni=LEFTi(ni,8)+".spr":LOAD ni,a 
dimpl:g=depart 

960 a=PEEK(g):b=PEEK(g+l):IF a=255 
AND b=255 THEN adimpl=gsGOTO 980 
970 g = g + 2 + a*b s GOTO 960 
980 ' 

990 ' *** MENU 
1000 ' 

1010 PEN 1:PAPER Os MODE 1 
1020 PEN 3s LOCATE 6,3s PRI NT“SPRI TER 
<c) Herve INISAN":LOCATE 6,4 : P 

EN 2:PR INT”- 

-"sPEN 1 

1030 LOCATE 6,9sPRINT"1-Chargement 
écran":LOCATE 6,11 :PRINT"2-Adresse 
d'implantation ( "depart")"sLOCATE 6 
,12sPRINT" Adresse courante s 
"adimplsLOCATE 6,14sPRINT"3-Sauveg 
arde sprites"sLOCATE 6,16sPRINT"4-C 
hargement sprites" 

1040 LOCATE 6,18:PRINT"5-Retour au 
BASIC” 


[10673 

[28663 

C47463 

[6473 

[1173 

[8873 

[1173 

[12663 

[68983 


[168503 


[29083 


1050 ai=INKEYi:IF a!<"l" OR al>"5"G [18193 
0T0 1050 

1060 ON VAL(ai)GOTO 260,1070,730,89 [20763 
0,1130 


1070 ' 

1080 ' *** ADRESSE D'IMPLANTATION 
1090 ' 

1100 MODE 1 :PEN 2:PRINT"En modifian 
t l'adresse d'implantation, vous e 
ffacei tous les sprites déjà créés" 
s PRINT: PR I NT s PEN 1 
1110 PRINT”Adresse d'implantation : 
VHEXi (départ )" = "départ : PRINT: INPU 
T"Nouvelle adresse s ",aa:ÏF aa=0 G 
OTO 980 

1120 IF aa<10000 OR aa>42000 GOTO 1 
100 ELSE depart = aasadimpl=aa: GOTO 9 
80 

1130 ' 

1140 ' *** FIN 
1150 ' 

1160 MODE 1 : CALL ?<BC02:END 


1000 ' 

1010 ' *** LM : IMPLANTATION RSX 
1020 ' 

1030 KEY 138,",":KEY 139,CHRi(13)+* 
data " 

1040 DATA 01,09,AO,21,1D,A0,C3,D1,B 

C, 11,A0,C3,21,AO,C3,33 

1060 DATA AO,54,41,42,4C,C5,53,50,5 

2,49,54,C5,00,00,00,00 

1080 DATA 00,FE,01,CO,DD,6E,00,DD,6 

6 ,'01,7E, 23,32,36, AO, 22 

1100 DATA 6E,AO,C9,F3,FE,03,CO, DD, 7 

E, 04,FE,00,D0,DD,7E,00 

1120 DATA F5,E6,07,5F,F1,CB,3F,CB,3 

F, CB,3F,05,11,50,00,CD 

1140 DATA B3,A0,D1,7B,E5,11,00,08,C 

D, B3,A0,D1,19,DD,5E,02 

1160 DATA 16,CO,19,EB,DD,4E,04,06,0 

0,CB,21,CB,10,21,10,27 

1180 DATA 09,4E,23,46,C5,El,46,23,4 

E, 23,EB,DD,7E,00,FE,CS 

1200 DATA DO,81,3D,FE,C8,DO,DD,7E ,0 

2,FE,50,D0,80,3D,FE,50 

1220 DATA DO,C5,06,F5,ED,78,1F,30,F 

B,C1,C5,E5,1A,AE,77,23 

1240 DATA 13,10,F9,El ,01,00,08,09,3 

0,04,01,50,CO,09,Cl,0D 

1260 DATA 20,E8,C9,06,08,21,00,00,C 

B,2F,30,01,19,CB,23,CB 

1280 DATA 12,10,F5,C9 

1290 ' 

1300 MEMORY HIMEM-200:adr = HIMEM + l: s 
um=0 

1310 FOR t=0 TO 195:READ ai:a=VAL<" 
+ai) :POKE adr+t,a:sum=sum+a:NEXT 
1320 IF sum<>21890 THEN MODE IsPRIN 
T"Erreur dans les DATA...":END 
1330 ' 

1340 ' *** RELOGEMENT DES RSX 
1345 ' 

1350 DATA l,9,4,Md,9,lfîI,*c,*21,lef 
_, !(33, S<2d , !<3b , S<30, i, 6e, ?<50 , Î<b3 , !<59 , ?<b 

0 

1360 FOR t = l TO 9:READ a,b 

1370 c = adr +b:msb = INT(c/256): 1sb=c-m 

sb*256:P0KE adr+a,1sb:POKE adr+a+1, 

msb 

1380 NEXT 
1400 CALL adr 


[1173 

[20123 

[1173 

[116403 


[81753 


[45313 


[1173 

C7763 

[1173 

£11243 


[1173 

[22773 

[1173 

[20173 

[30303 

[19183 

[27373 

[24313 

[25663 

[34053 

[33813 

[26913 

[37913 

[26533 

[16043 

[38443 

[5013 

[1173 

£2077] 

[32173 

[47163 

[1173 

C15393 

[1173 

[29953 


[15523 

[43353 


[3503 

C3113 
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LECTEURS§ 
n’usez 
plus 
vos doigts ! 


ta log ithèque d AM -MAG 


Une myriade de messages d'erreur résulte 
de l'interminable saisie d'un listing prometteur? 
Votre raison vacille? 

Nous avons de quoi apaiser vos tourments... 


B 

I COMPILATION I 
I AM-MAG i 


ENFIN PRETE! 

La disquette PCW sur laquelle sont 
regroupés les programmes 
parus dans nos numéros. 120 F 

3 utilitaires : Vérificateur V.3 - Desfrac - Tailfich. 

3 jeux : Othello - La Ville Infernale - Mission Détector. 

COMPILATION 140 F 

Une disquette regroupe tous les 
programmes publiés dans nos 
trois derniers numéros : 



n°39 


n°40 



Jeux : Reflector, Combat (6128), La roue de la fortune 
Utilitaires : Lutins, Fill 464, Tri, Amsaisie, Vérificateurs V.2 

Des Dix par Dix à foison + un inédit exceptionnel : MAGE (6128) 



BON DE COMMANDE 

Choix Compilations à déguster 

] 3-4*5 : CPC paint. RSX music, omsmonitour, Spidorman 2 , conjugaisons, lo bombardior, 

dump soctour dise, histogrammes en 3D, récupération fichiers dise, récupération fichiors prof. 
biorythmes. 

[H 5-7-8 : Gloup, taquin, jacquot, A.P.I.D, tonnis 3D. rallyo 66. pronofoot, musicsoft. 

statistiques. Amstradascii, crayon opt. t, crayon opt. 2. casso briquos. gôo do Franco, 
extonsions 464, le compte est bon, Othello. 

J 9-10-11 :M A.O, gosrevue, Trafalgar, fonctions. Amstormind. labynotauro, musithéquos, 
rodôfinition. morts célébros. vorbos irréguliers, nibblor. 

J 12-1 3-14 : Q-R, loto. X-mon, JPG-3D, labybi. gécamob. gost dise, startball. 3D château, oxtra 
simon, musithéquos, RSX fonétros. calcul montai, spaco invaders, Ahl Lus vacancos, puissanco 
quatre, il plout bergère, scrolling/déconnoct, Amslradian graffitis. 

Q 15-16-17 : dobug, espace, grillo, runnor, sphôric, CPC tank. Amsbaso. Amspokor, géométrio. 
oil panic, blockhaus, Mirago IV, warblock, Epson pack, casso-tôto. carrés magiques, 

_ vérificateurs V.2. monnaies ôlrangôros. 

LJ 18-19-20 : oil. crypto, pacman, modulo. rundisc, flipper, dirutil, Amsynth. bowling. G.M D.D, 
anagram, fantômos. refusnik, heuroduc, culinaire, infernal micro, vérificateurs V.2. gestion do 
fenêtres. 

] 21-22-23 :spot, astro, ponto, combat. Othello. Amsynth. ico strad. boîto à outils, courbes 
math, curseur flash, arcsin/arccosin. vérificateurs V.2. 

] 24-25-26 : boloto, compact, tablatur. analyser, matrices, cor-bon, boursicote man, flight 
simulator, vônficatours V.2. 

Q 27-28-29 : inversion d'écran, OCM V.2, oxperl. pluios acidos, intro musicalo, musiquo, facture 
9, RSX écran, simplification de fraction, suporcoptor. basic, cauchomar, machaon, moucho, 
amsaisie, spritos. vérificateurs V.2. 

Q 30-31 - 32 : verlan, utilitaire 208 ko. chasso A l'homme, ku klux klan, droam walkor. rodstono. 
gestion souris, caractor, dostroy ♦. suprnx, star wars, amsnisio, vérificateurs V.2. 

[J 33-34-35 : bouncing croaturos. résolution, lenétrad, tracour de fonctions, blabla 
technocratique, color. dix par dix, amsaisie, vérificateurs V,2. 

LJ 36-37-38: infernal castle. ammatour basic, Rock'n Scroll. fantômo, tron. dix par dix. amsaisio. 
vérificateurs V.2. Spy. 

LJ 39-40-41 : Lutins en goguette. Reflector. Fill 464. Combat (6128), La roue de la 
fortune. Tri, dix par dix. amsaisie. vérificateurs V.2. Mage (6128). 

□ Je commande la disquette pour PCW : 120 F 

Règlement par □ Chèque bancaire □ Chèque postal □ Mandat 

Nom :_ Prénom_ 

Adresse :_ 


A retourner à Laser Presse AM MAG, Service Diffusion 
5/7, rue de l’Amiral Courbet 94160 SAINT-MANDE 
Egalement utilisable le bon de commande des anciens numéros 
cassettes, disquettes. 


Prix dégressif 

1 disquette : 1 40 f 

2 disquettes : 120 f l'ex. soit 240 f 

3 disquettes : 100 f l'ex. soit 300 f 

4 disquettes : 90 f l'ex. soit 360 f 
+ 90 f pour chaque disquette 
supplémentaire. 

Disquettes à 90 F, 

pour une commande à 
partir de 4 exemplaires. 


AUTEURS 

Nous attendons vos réalisations! Vous programmez et vous 
souhaitez faire profiter nos lecteurs de vos productions originales. 
Faites nous parvenir ce bon dûment rempli. 

Je soussigné_ 

Adresse :_ 


Certifie sur l'honneur être l'auteur de ce programme et autorise 
AM MAG à le publier sous formes diverses (revues, sup. disquettes) 

Date et signature obligatoires_ 

Tous nos listings parus sont rémunérés. 





























ABONNEZ-VOUS A 


8® F d’ECONOMIE 
+ €ÜBEÂU 

Au choix : 2 numéros HORS-SERIE parus en 88 

(Cocher dans le bon d'abonnement les numéros choisis) 

N° 7 • SPECIAL LISTINGS OU i 1 K7 jeU 

3 superjiits de Hewson 

OCEAN CDMniicnr,n 


BATTLE VALLEY 


8 • GUIDE DES LOGICIELS N » g . AMSTRAD 0 E A à Z 


Capturer les terroristes Aventures sn„, 
et détruire les missiles us ' ma ones 

(Choix respecté dans la limite des stocks) 


Abonnement à AM MAG 

□ Oui, je m'abonne à AM MAG pour 1 2 numéros + 4 H.S. au prix de 275 F (au lieu de 364 F) 

□ Europe : 375 F □ Armail : 435 F 

□ Je choisis en cadeau 2 numéros hors-série : □ n° 5, □ n° 6, □ n° 7, □ n L 8, □ n° 9 
ou 1 K7 de jeu : □ Battle Valley, □ Uridium, □ Océan Conqueror 

Je règle par : □ chèque bancaire, □ chèque postal, □ mandat, 
à adresser à : 


oc\f\ r cir'ïi" r - r c 

AMSTRAD 


12 NUMEROS + 4 HORS-SERIE 

275 F au lieu de 364 F(*) 

* : Prix de vente au numéro : 

12 numéros à 22 F, + 4 H.S. à 25 F 

Le tarif de l'abonnement 88 
est maintenu malgré l'augmentation 
du prix de vente au numéro. 


-çc'/e fforsy \<z r 




AM MAG Nom :.... 

Service Diffusion Adresse 

5/7, rue de l'Amiral Courbet . 

94160 Saint-Mandé. Ville 


Prénom 


Code postal 


ATTENTION ! Offre limitée jusqu’au 01/04/1989 

















